Создать массив, каждый элемент которого рассчитывается по формуле: i2*100, где i – индекс элемента массива. вывести полученный массив на экран, расположив каждый элемент в отдельной строке.
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.
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.