Отпечатать номер каждой строки матрицы, в которой не менее 2 элементов имеют нулевое значение

@Yoshik · Регистрация: 09.12.2013

Составить алгоритм и программу для решения задачи.
И собственно задача.

Для матрицы из 3 столбцов и 6 строк отпечатать номер каждой строки, в которой не менее 2 элементов имеют нулевое значение, и число таких строк.

@vint-81 · 23.10.2014, 12:18

Pascal

const n=6;m=3;
var a:array[1..n,1..m] of integer;
    i,j,k,kv:integer;
begin
    randomize;
    for i:=1 to n do
     begin
      for j:=1 to m do
       begin
        a[i,j]:=random(3);
        write(a[i,j]:3);
       end;
      writeln
     end;
    k:=0;
    for i:=1 to n do
     begin
       kv:=0;
       for j:=1 to m do
        if a[i,j]=0 then inc(kv);
       if kv>1 then
                begin
                 inc(k);
                 write(i,' ')
                end;
     end;
     writeln;
     writeln('kol-vo strok ',k)
end.

@Yoshik · 23.10.2014, 12:23 **[ТС]**

Благодарю..
Единственное, можно "inc" заменить?
Ибо еще не проходили..

@vint-81 · 23.10.2014, 12:28

Сообщение от Yoshik

Единственное, можно "inc" заменить?

inc(k) k:=k+1

@Yoshik · 23.10.2014, 12:36 **[ТС]**

А
inc(kv)?

@vint-81 · 23.10.2014, 13:44

Сообщение от Yoshik

inc(kv)?

издеваетесь?, kv:=kv+1 увеличиваем kv на единицу

@Yoshik 0 / 0 / 0 Регистрация: 09.12.2013 Сообщений: 45
		1
	Отпечатать номер каждой строки матрицы, в которой не менее 2 элементов имеют нулевое значение 23.10.2014, 11:51. Показов 1821. Ответов 5 Метки нет (Все метки) Составить алгоритм и программу для решения задачи. И собственно задача. Для матрицы из 3 столбцов и 6 строк отпечатать номер каждой строки, в которой не менее 2 элементов имеют нулевое значение, и число таких строк. 0

@Yoshik 0 / 0 / 0 Регистрация: 09.12.2013 Сообщений: 45
	23.10.2014, 12:23 [ТС]	3
	Благодарю.. Единственное, можно "inc" заменить? Ибо еще не проходили.. 0

@vint-81 охотник 1011 / 535 / 650 Регистрация: 29.09.2014 Сообщений: 1,083
	23.10.2014, 12:28	4
	Сообщение от Yoshik Единственное, можно "inc" заменить? inc(k) k:=k+1 0

@Yoshik 0 / 0 / 0 Регистрация: 09.12.2013 Сообщений: 45
	23.10.2014, 12:36 [ТС]	5
	А inc(kv)? 0

@vint-81 охотник 1011 / 535 / 650 Регистрация: 29.09.2014 Сообщений: 1,083
	23.10.2014, 13:44	6
	Сообщение от Yoshik inc(kv)? издеваетесь?, kv:=kv+1 увеличиваем kv на единицу 0

Опции темы