Для каждой строки напечатать номера столбцов, содержащих положительные элементы

@Wlad445 · Регистрация: 06.11.2010

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

@soonshoo · 24.11.2010, 18:58

Pascal

uses crt;
 var m:array[1..5,1..5]of integer;
      i,j:integer;
 
  begin
    clrscr;
    for i:=1 to 5 do
     begin
       writeln('введите', i,' строку');
       for j:=1 to 5 do
          read(m[i,j]);
       writeln;
    end;
  for i:=1 to 5 do
    begin
     writeln('строка ',i,': ');
    for j:=1 to 10 do
       if m[i,j]>0 then write(' ',j,' ');
      writeln;
     readln;   
   end;
end.

@Wlad445 65 / 0 / 3 Регистрация: 06.11.2010 Сообщений: 177
		1
	Для каждой строки напечатать номера столбцов, содержащих положительные элементы 24.11.2010, 17:33. Показов 1662. Ответов 1 Метки нет (Все метки) Для каждой строки напечатать номера столбцов, содержащих положительные элементы 0

	24.11.2010, 18:58

Для каждой строки напечатать номера столбцов, содержащих положительные элементы

Решение