Pascal. Решить методом for и методом random
Даны целые числа.
Вывести числа на печать, каждое второе перед выводом возвести в квадрат.
Помогите, пожалуйста :D
Даны целые числа.
Вывести числа на печать, каждое второе перед выводом возвести в квадрат.
Помогите, пожалуйста :D
More Questions From This User See All
Answers & Comments
programzadacha;
var
a:array[1..1000] of integer;
i,n:integer;
begin
writeln('vveditekol-vo elementov massiva');
readln(n);
for i:=1 ton do begin
a[i]:=random(1000)-500;
write(a[i]:7);
end;
writeln;
for i:=1 ton do begin
if i mod 2 =0 then a[i]:=sqr(a[i]);
end;
writeln;
for i:=1 ton do begin
write(a[i]:7);
end;
end.