Вывести квадраты первых десяти натуральных чисел.

Сделайте полный код на паскале!
не копируйте другие коды

Question

Информатика: Вывести квадраты первых десяти натуральных чисел. Сделайте полный код на паскале! не копируйте другие коды

nadir1234 · Accepted Answer

Program Begenjov1997;

const

n = 30; {Количество элементов массива}

m = 10000; {Максимально возможное значение элемента}

var

a:array[1..n] of integer;

i, sum: integer;

s:string;

begin

s:=' -=Alphaeus=- ';

for i:=1 to 22 do begin write(s[i]); sleep(60) end;

{заполняем массив случайными числами}

writeln; randomize;

for i:=1 to n do a[i]:=random(m+1);

{Ищем максимальный и минимальный элементы}

sum:=0;

for i:=1 to n do

if (a[i]<200) and (a[i] mod 5 = 0) then sum:=sum+a[i];

{Заменяем эти элементы найденной суммой}

for i:=1 to n do

if (a[i]<200) and (a[i] mod 5 = 0) then a[i]:=sum;

{Вывод}

writeln;

for i:=1 to n do writeln(a[i]);

end.

Вывести квадраты первых десяти натуральных чисел.Сделайте полный код на паскале!не копируйте другие коды