Question

Pascal. Решить методом for и методом random Даны целые числа. Вывести числа на печать, каждое второе перед выводом возвести в квадрат. Помогите, пожалуйста :D

Answer 1

program zadacha;

var

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

i,n: integer;

begin

writeln('vvedite kol-vo elementov massiva');

readln(n);

for i:=1 to n do begin

    a[i]:=random(1000)-500;

    write(a[i]:7);

    end;

    writeln;

   

for i:=1 to n do begin

    if i mod 2 =0 then  a[i]:=sqr(a[i]);

    end;

    writeln;

   

for i:=1 to n do begin

    write(a[i]:7);

    end;

    end.