Генератором случайных чисел (от 0 до 100) задан массив из 20 целых чисел.составьте программу, с которой напечатайте на одной строчке исходный массив, а на следующей строке - сумму квадратов элементов с начетными индексами.
Const n = 20; var a :array [1..n] of integer; i, sum :integer; begin randomize; for i:= 1 to n do a[i]:= random(100); for i:= 1 to n do write(a[i],' '); writeln; sum:= 0; for i:= 1 to n do if i mod 2 = 1 then sum:= sum + sqr(a[i]); writeln(sum); end.
тебе как надо решать есть
var a :array [1..n] of integer; i, sum :integer;
begin
randomize; for i:= 1 to n do a[i]:= random(100); for i:= 1 to n do write(a[i],' '); writeln; sum:= 0; for i:= 1 to n do if i mod 2 = 1 then sum:= sum + sqr(a[i]); writeln(sum);
end.