дан двумерный массив размеров 5х6, определить есть ли в данном массиве элемент равный нулю, на паскале.
Answers & Comments
danulpopov
Program School; var a:array[1..5, 1..6] of integer; i, j:integer; fl:boolean; begin fl:= false; for i:= 1 to 5 do for j:= 1 to 6 do begin read(a[i,j]); if a[i,j] = 0 then fl := true; end; If fl = true then Writeln('В матрице есть нулевые элементы') else Writeln('В матрице нет нулевых элементов'); end.
Answers & Comments
var
a:array[1..5, 1..6] of integer;
i, j:integer;
fl:boolean;
begin
fl:= false;
for i:= 1 to 5 do
for j:= 1 to 6 do
begin
read(a[i,j]);
if a[i,j] = 0 then
fl := true;
end;
If fl = true then
Writeln('В матрице есть нулевые элементы')
else
Writeln('В матрице нет нулевых элементов');
end.
Пример:
1 2 3 4 5 6
0 1 2 3 4 5
9 4 5 7 8 3
5 8 6 9 9 9
1 2 5 4 2 0
В матрице есть нулевые элементы