D(3,5)/ НАйти минимум элементов массива Turbo Pascal

[Poor_Student]

D(3,5)/ НАйти минимум элементов массива Turbo Pascal

[Poor_Student]

program s;
uses crt;
var
mas: array [1..3,1..5] of integer;
i,j,min:integer;
begin
clrscr;
randomize;
for i:=1 to 3 do
for j:=1 to 5 do
begin
mas[i,j]:=random(200)-100;
if mas[i,j]<min then min:=mas[i,j];
end;
writeln(min);
readln;
end.




так??

[Grag]

А чему у тебя изначально равен min??? Переменная min не инициализирована...

[Poor_Student]

Min- минимальное значение
его нужно найти.
умник блин

[ROMA2PVT]

те про фому а ты про ерёму.

min:=mas[1,1];

Вот что имел ввиду Grag