помагите пожалуйста с массивами

@mihaill · Регистрация: 30.09.2011

Author24 — интернет-сервис помощи студентам

написать программу которая определяет номера строк А[1..6,1..4].в которых содержиться хотя бы один нулевой элемент.

@denisneposeda · 01.10.2011, 02:30

Pascal

uses crt;
var
i,j: integer;
a: array [1..6,1..4] of integer;
begin
for i:=1 to 6 do
 for j:=1 to 4 do
  a[i,j]:=random(10);
 
for i:=1 to 6 do
begin
for j:=1 to 4 do
write(a[i,j]:5);
writeln;
end;
 
for i:=1 to 6 do
 for j:=1 to 4 do
  if a[i,j]=0
   then
    begin
     write (i:2);
     break;
    end;
 end.

@mihaill 0 / 0 / 0 Регистрация: 30.09.2011 Сообщений: 8
		1
	помагите пожалуйста с массивами 30.09.2011, 22:33. Показов 1080. Ответов 1 Метки нет (Все метки) написать программу которая определяет номера строк А[1..6,1..4].в которых содержиться хотя бы один нулевой элемент. 0

	01.10.2011, 02:30

помагите пожалуйста с массивами

Решение