Var a: array [0..10] of integer; i, m: integer; begin for i := 0 to 10 do begin a[i] := random(50) - 25; writeln('[', i, '] => ', a[i]); end; for i := 0 to 10 do if (abs(a[i]) > abs(a[m])) then m := i; writeln('[', m, '] => ', a[m]); end.
Var chislo:integer; proverka:boolean; begin proverka:=true; read(chislo); repeat if chislo=0 then //так как 0 не натуральное число begin proverka:=false; break; end; if (chislo mod 3)>0 then begin proverka:=false; break; end else chislo:=chislo div 3; until(chislo=0); if proverka then WriteLn('Да') else WriteLn('Нет'); readln; end.
i, m: integer;
begin
for i := 0 to 10 do
begin
a[i] := random(50) - 25;
writeln('[', i, '] => ', a[i]);
end;
for i := 0 to 10 do
if (abs(a[i]) > abs(a[m])) then
m := i;
writeln('[', m, '] => ', a[m]);
end.