Генератором случайных чисел (от 0 до 100) задан массив из 20 целых чисел.составьте...

Question

Генератором случайных чисел (от 0 до 100) задан массив из 20 целых чисел.составьте программу, с помощью которой напечатайте на одной строчке исходный массив, а на следующей строке - сумму квадратов элементов с начетными индексами.

Answer 1

тебе как надо решать есть 2 способа

Comments

любым , главное ,чтобы было правильно

---

я ошиблась, извините, конечно это не лучший ответ, а лучший написан ниже от Pro100cool!

Answer 2

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.