Дан линейный вещественный массив. Найти сумму его элементов по заданному условию - Pascal ABC

Формулировка задачи:

Дан линейный вещественный массив a. Найти : (Перемещено из Pascal ABC.NET)

Код к задаче: «Дан линейный вещественный массив. Найти сумму его элементов по заданному условию - Pascal ABC»

textual
Uses crt;
Const n=20;
Var i,k:integer; a:array[1..n]of real; sum:real;
Begin
 clrscr;
 randomize;
 for i:=1 to n do
  begin
   a[i]:=random(100);
   write(a[i],' ');
  end;
 writeln;
 sum:=0;
 k:=1;
 while sqr(k)<=n do
  begin
   sum:=sum+sqr(a[sqr(k)]);
   k:=k+1;
  end;
 writeln('Summa=',sum);
End.

14   голосов, оценка 3.857 из 5


СОХРАНИТЬ ССЫЛКУ