Напишите программу в Pascal ABC в которой нужно определить номера строк двухмерного массива 5х3, содержащего только положительные элементы
Answers & Comments
tuyia
Const n=5 var a:array [1..n,1..n] of integer; d:array [1..n] of integer; i,j:integer; begin for i:=1 to 5 do for j:=1 to 3 do readln(a[i,j]); for i:=1 to 5 do begin for j:=1 to 3 do begin if a[i,j]>0 then d[i]:=d[i]+1; end; if d[i]=3 then d[i]:=i else d[i]:=0; end; for i:=1 to 5 do if d[i]>0 then writeln(d[i]); end.
1 votes Thanks 1
Артем2017
я короч изменил массив поменяв все местами, прога работает, но пишет в столбик а не как положено столбик и строка (должно быть как матрица)
tuyia
const n=5; var a:array [1..n,1..n] of integer; d:array [1..n] of integer; i,j:integer; begin for i:=1 to 5 do for j:=1 to 3 do readln(a[i,j]); for i:=1 to 5 do begin for j:=1 to 3 do begin if a[i,j]>0 then d[i]:=d[i]+1; end; if d[i]=3 then d[i]:=i else d[i]:=0; end; for i:=1 to 5 do if d[i]>0 then writeln(d[i]); end.
tuyia
uses crt; const n=5; var a:array [1..n,1..n] of integer; d:array [1..n] of integer; i,j:integer; begin for i:=1 to 3 do for j:=1 to 5 do readln(a[i,j]); for i:=1 to 3 do begin for j:=1 to 5 do begin if a[i,j]>0 then d[i]:=d[i]+1; end; if d[i]=5 then d[i]:=i else d[i]:=0; end;
tuyia
clrscr; for i:=1 to 3 do begin for j:=1 to 5 do begin write(a[i,j]); write(' '); end; writeln;end;writeln; for i:=1 to 3 do if d[i]>0 then writeln(d[i]);readln; end.
tuyia
вводи посимвольно, потом прога выдаст таблицу
tuyia
программа не считает 0 положительным, вообще в жизни 0 ни положительное ни отрицательное
Answers & Comments
var
a:array [1..n,1..n] of integer;
d:array [1..n] of integer;
i,j:integer;
begin
for i:=1 to 5 do
for j:=1 to 3 do
readln(a[i,j]);
for i:=1 to 5 do begin
for j:=1 to 3 do begin
if a[i,j]>0 then
d[i]:=d[i]+1;
end;
if d[i]=3 then
d[i]:=i
else
d[i]:=0;
end;
for i:=1 to 5 do
if d[i]>0 then
writeln(d[i]);
end.
var
a:array [1..n,1..n] of integer;
d:array [1..n] of integer;
i,j:integer;
begin
for i:=1 to 5 do
for j:=1 to 3 do
readln(a[i,j]);
for i:=1 to 5 do begin
for j:=1 to 3 do begin
if a[i,j]>0 then
d[i]:=d[i]+1;
end;
if d[i]=3 then
d[i]:=i
else
d[i]:=0;
end;
for i:=1 to 5 do
if d[i]>0 then
writeln(d[i]);
end.
const n=5;
var
a:array [1..n,1..n] of integer;
d:array [1..n] of integer;
i,j:integer;
begin
for i:=1 to 3 do
for j:=1 to 5 do
readln(a[i,j]);
for i:=1 to 3 do begin
for j:=1 to 5 do begin
if a[i,j]>0 then
d[i]:=d[i]+1;
end;
if d[i]=5 then
d[i]:=i
else
d[i]:=0;
end;
for i:=1 to 3 do begin
for j:=1 to 5 do begin
write(a[i,j]);
write(' ');
end;
writeln;end;writeln;
for i:=1 to 3 do
if d[i]>0 then
writeln(d[i]);readln;
end.