+50
3 года назад
Информатика
Студенческий
Не понял, почему мой ответ удалили... Снова оставляю его здесь.
program prog;
var
a:array[1..20] of integer;
i,max:integer;
begin
max:=0;
for i:=1 to 20 do begin
a[i]:=random(-64)+52;
write(a[i], ' ');
end;
writeln();
for i:=1 to 21 do begin
if i mod 2 = 0 then a[i]:=a[i]*(-3);
if a[i] < 10 then a[i]:=a[i]*(-1);
if abs(a[i]) > 40 then a[i]:=a[i]-15;
if a[i] = max then a[i]:=sqr(i);
write(a[i], ' ')
end.
Не понял, почему мой ответ удалили... Снова оставляю его здесь.
program prog;
var
a:array[1..20] of integer;
i,max:integer;
begin
max:=0;
for i:=1 to 20 do begin
a[i]:=random(-64)+52;
write(a[i], ' ');
end;
writeln();
for i:=1 to 21 do begin
if i mod 2 = 0 then a[i]:=a[i]*(-3);
if a[i] < 10 then a[i]:=a[i]*(-1);
if abs(a[i]) > 40 then a[i]:=a[i]-15;
end;
for i:=1 to 21 do begin
if a[i] = max then a[i]:=sqr(i);
write(a[i], ' ')
end;
end.