Создать массив, каждый элемент которого рассчитывается по формуле: I2*100, где I - индекс элемента массива. Вывести полученный массив на экран, расположив каждый элемент в отдельной строке.

Question

Информатика

Дионисий

20 ноября, 10:20

Создать массив, каждый элемент которого рассчитывается по формуле: I2*100, где I - индекс элемента массива. Вывести полученный массив на экран, расположив каждый элемент в отдельной строке.

+4

Ответы (1)

Знаете ответ?

Мстислав · Answer 1

uses crt;

var a:array [1 ... 100] of integer;

i, n:integer;

begin

clrscr;

write ('Количество элемнтов массива: ') ; read (n) ;

writeln ('Массив:') ;

for i:=1 to n do

begin

a[i]:=sqr (i) * 100;

writeln (a[i]) ;

end;

end.