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

121

493

Посмотреть ответы 3

Ответы на вопрос:

RuStAm09

Информатика

4,7(76 оценок)

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.