Создать одномерный массив A состоящий из 15 элементов заполнить с егооп правилу: каждый элемент массиваравен произведению его номера и числа Z вводимого с клавиатуры. посчитать сумму элементов больгих 40
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
