Question

Помогите пожалуйста!!!
Найти сумму всех элементов массива
вещественных чисел, больших заданного
числа. Размерность массива – 20. Заполнение
массива – квадраты номеров элементов.

Answer 1

Ответ:

const n=20;

var s,k:real;

m:array[1..n] of real;

i:integer;

begin

s:=0;

for i:=1 to n do

begin

m[i]:=i*i;

write(m[i],' ')

end;

writeln;

readln(k);

for i:=1 to n do

if m[i]>k then s:=s+m[i];

write(s)

end.