дан двухмерный массив "у" с размерностью n x m если все элементы строки четные, то вывести порядковый номер строки.
в паскале
написать программу
Ответы
Ответ дал:
0
var
y:array[1..999, 1..999] of integer;
i, j, n, m:integer;
chet:boolean;
begin
randomize;
readln(n, m);
//Рандомно заполняем и выводим двумерный массив числами от 0 до 100
for i:=1 to n do
begin
for j:=1 to m do begin
y[i, j]:=random(101);
write(y[i, j],' ');
end;
writeln;
end;
writeln;
for i:=1 to n do
begin
chet:=true;
for j:=1 to m do
if y[i, j] mod 2 <> 0 then
chet:=false;
if chet = true then
write(i, ' ');
end;
end.
y:array[1..999, 1..999] of integer;
i, j, n, m:integer;
chet:boolean;
begin
randomize;
readln(n, m);
//Рандомно заполняем и выводим двумерный массив числами от 0 до 100
for i:=1 to n do
begin
for j:=1 to m do begin
y[i, j]:=random(101);
write(y[i, j],' ');
end;
writeln;
end;
writeln;
for i:=1 to n do
begin
chet:=true;
for j:=1 to m do
if y[i, j] mod 2 <> 0 then
chet:=false;
if chet = true then
write(i, ' ');
end;
end.
Salyev:
как его сделать тк чтобы в отдельном диалоговом окне он был? и что вводить в значения?
Вас заинтересует
11 месяцев назад
11 месяцев назад
1 год назад
6 лет назад
6 лет назад
7 лет назад
7 лет назад