Помогите пожалуйста!!!
Найти сумму всех элементов массива
вещественных чисел, больших заданного
числа. Размерность массива – 20. Заполнение
массива – квадраты номеров элементов.
Найти сумму всех элементов массива
вещественных чисел, больших заданного
числа. Размерность массива – 20. Заполнение
массива – квадраты номеров элементов.
More Questions From This User See All
Answers & Comments
Ответ:
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.