Размещено 5 лет назад по предмету
Информатика
от Nikita123413
var
a, b:Integer;
tab: array [1..15] of Integer;
begin
randomize;
for a := 1 to 15 do
begin
tab[a] := random(-15, 15);
writeln(a, ' - элемент = ', tab[a]);
end;
b := tab[1];
for a := 2 to 15 do
begin
if tab [a] > b then b := tab[a];
end;
writeln('наибольший элемент массива = ', b);
end.