Создать одномерный массив A состоящий из 15 элементов заполнить с егооп правилу: каждый элемент массиваравен произведению его номера и числа Z вводимого с клавиатуры. посчитать сумму элементов больгих 40

Question

Информатика

Марьян

12 декабря, 01:17

Создать одномерный массив A состоящий из 15 элементов заполнить с егооп правилу: каждый элемент массиваравен произведению его номера и числа Z вводимого с клавиатуры. посчитать сумму элементов больгих 40

+2

Ответы (1)

Знаете ответ на вопрос?

Гали · Answer 1

var

a:array [1 ... 15] of integer;

i, z, s:integer;

begin

write ('Z = ') ; readln (z) ;

for i:=1 to 15 do begin

a[i]:=i*z;

if a[i]>40 then s:=s+a[i];

write (a[i],' ') ;

end;

writeln;

writeln ('Summa: ', s) ;

readln;

end.