Составьте программу, выясняющую, есть ли в массиве С(N,M) строки, в которых отсутствуют нулевые элементы.

@alex925 · Регистрация: 19.03.2012

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

@myslivec · 20.03.2012, 00:14

Pascal

USES CRT;
var
  c: array[1..100, 1..100] of real;
  m, n, i, j: byte;
  is: boolean;
Begin
  ClrScr;
  Write('Input M: ');
  ReadLn(m);
  Write('Input N: ');
  readLn(n);
  ClrScr;
  for i:=1 to m do
    for j:=1 to n do
    begin
      Write('C[',i,',',j,']=');
      ReadLn(C[i,j]);
    end;
  ClrScr;
  for i:=1 to m do
  begin
    is:=false;
    for j:=1 to n do
      if (c[i,j]=0) then is:=true;
    if (not is) then break;
  end;
  if (not is) then WriteLn('YES!')
    else WriteLn('NO!');
  ReadKey;
End.

@alex925 2740 / 2339 / 620 Регистрация: 19.03.2012 Сообщений: 8,830
		1
	Составьте программу, выясняющую, есть ли в массиве С(N,M) строки, в которых отсутствуют нулевые элементы. 19.03.2012, 18:18. Показов 1343. Ответов 1 Метки двумерный массив (Все метки) Составьте программу, выясняющую, есть ли в массиве С(N,M) строки, в которых отсутствуют нулевые элементы. 0

Опции темы

Составьте программу, выясняющую, есть ли в массиве С(N,M) строки, в которых отсутствуют нулевые элементы.

Решение