Заполните одномерный массив размерностью в 20 элементов так, чтобы каждый элемент был равен квадрату своего номера. сформированный массив вывести на экран в строку.

279

479

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

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

mitrofanovas633

Информатика

4,5(3 оценок)

program frank; const n=20; type mas=array[1..n] of integer; var a: mas; i: integer; beginfor i: =1 to n do begina[i]: =sqr(i); write(' ',a[i]); end; end.

daffidovа

Информатика

4,6(18 оценок)

Вариант через рандом - рост задается сам var a: array of integer; n, i: integer; begin write('введите количество учеников в классе: '); readln(n); setlength( a, n ); for i : = 0 to n - 1 do begin a[ i ] : = random(200) mod 1000; writeln('рост ', i + 1, ' ученика: ', a[ i ]); end; end.