давно
Старший Модератор
31795
6196
19.05.2016, 11:41
общий
это ответ
Здравствуйте, amelya.kuro!
Смотрите код:
[code lang=pascal h=200]const
n=10;
var
a:array[1..n]of integer;
b:integer;
begin
{}
for b:=1 to n do
begin
a[b]:=random(100);
writeln('A[',b:2,']:=',a[b]:4,'sqrt(':10,a[b]:3,'):=',sqr(a[b]):5,'sqrt(':10,a[b]:3,'):=',sqrt(a[b]):10:7);
end;
end.[/code]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.