Const n=15; var a:array[1..n]of integer; i,max:integer; begin for i:=1 to n do begin a[i]:=random(100)-50; write(a[i]:4); end;max:=a[1]; for i:=2 to n do if a[i]>max then max:=a[i]; writeln; writeln(max); end.
Const N1 = 5; N2 = 5; var a: array [0..N1, 0..N2] of integer; b: array [0..N1*N2] of integer; i, j, n: integer; begin for i:=0 to N1 do {Заполнение массивы случайными числами} for j := 0 to N2 do a[i, j] := random(9999); for i:=0 to N1 do {Основная часть, проверка и заполнение второго массива} for j := 0 to N2 do if (a[i, j] mod 2 = 0) then begin b[n] := a[i, j]; n := n + 1; end; for i:=0 to n do {Вывод полученных чисел} writeln(b[i]); end.
n=15;
var
a:array[1..n]of integer;
i,max:integer;
begin
for i:=1 to n do
begin
a[i]:=random(100)-50;
write(a[i]:4);
end;max:=a[1];
for i:=2 to n do
if a[i]>max then
max:=a[i];
writeln;
writeln(max);
end.