ребята очень срочно надо!
10-11 класс
|
надо написать программу
Var a,b,c,i,j:longint;
m:array[1..1000,1..1000] of longint;
begin
read(a,b);
for i:=1 to a do
for j:=1 to b do
begin
read(m[i,j]);
if m[i,j]=0 then
inc(c);
end;
if c>0 then
for i:=1 to a do
for j:=1 to b do
if m[i,j]<>0 then
m[i,j]:=1;
end.
Другие вопросы из категории
которой сначала напечатайте элементы массива в строчку, а на следующей строчке - произведение элементов с чётными индексами". Заранее спасибо.
.поза
.запах
.вспышка света
звук
нужно перечислять все различные наборы значений J, K, L, M и N, при которых выполнено данное равенство. В качестве ответа вам нужно указать только количество таких наборов.
символов только одна является цифрой, без циклов и if, на паскале
Читайте также
Часть 1: 19 и 32, Часть 2: 2
используемых цветов равно 256?
A)1750 kb B)896 kb C)875 kb D)448 kb(килобайт)
пожалуйста очень срочно надо!!!!!! и подробно тоже!!!!
представьте в двоичной системе счисления.