Peace Death: Новая: === Наличие нулей в матрице === Program nalichie_nylej_v_matrice; const n=10; m=8;//описываем константы var i,j:integer;//оп...

2010-01-13T16:08:51Z

Новая: === Наличие нулей в матрице === <source lang="Delphi">Program nalichie_nylej_v_matrice; const n=10; m=8;//описываем константы var i,j:integer;//оп...

Новая страница

=== Наличие нулей в матрице ===
<source lang="Delphi">Program nalichie_nylej_v_matrice;
const n=10; m=8;//описываем константы
var i,j:integer;//описываем переменные
var haszero:boolean;
var a:array[1..m,1..n] of integer;//описываем массив
label endfors;//описываем метки
begin//начало программы
begin//начало двух циклов
randomize;//оператор случайных чисел
for i:=1 to m do//цикл строк
for j:=1 to n do//цикл столбцов
a[i,j]:=random(100)-50;//генерация случайеых чисел в массив
end;//конец двух циклов
haszero:=false; //инициализация перед циклом (ОБЯЗАТЕЛЬНО!)
for i:=1 to m do
for j:=1 to n do
if a[i,j]=0 then//условие нулей в массиве
begin
haszero:=true;
goto endfors;//выход из цикла если нули есть
end;
endfors:writeln(haszero);//вывод ответа
end.</source>

Наличие нулей в матрице - История изменений

Peace Death: Новая: === Наличие нулей в матрице === Program nalichie_nylej_v_matrice; const n=10; m=8;//описываем константы var i,j:integer;//оп...