Определить номера строк матрицы A[N,K], совпадающие с массивом d[k]. Если таких строк нет, выдать соответствующее сообщение

@gordan11 · Регистрация: 16.05.2013

Определить номера строк матрицы A[N,K], совпадающие с массивом d[k]. Если таких строк нет, выдать соответствующее сообщение.

@BAAAAAas · 18.05.2013, 23:19

Pascal

uses crt;
var a:array [1..100,1..100] of integer;
    d:array [1..100] of integer;
    q,n,k,i,j,w:integer;
begin
clrscr;
q:=0;w:=0;
write('Введите кол-во строк ');readln(n);
write('Введите кол-во столбцов ');readln(k);
for i:=1 to n do
   for j:=1 to k do
     begin
         write('A[',i,';',j,']=');
         readln(a[i,j]);
     end;
for j:=1 to k do
    begin
        write('D[',i,']=');
        readln(d[k]);
    end;
for i:=1 to n do
  begin
     for j:=1 to k do
        if a[i,j]=d[k] then inc(q);
   if q<>0 then begin writeln(i);inc(w);end;
   q:=0;
   end;
if w=0 then writeln('Таких строк нет');   
readkey;
end.

@gordan11 1 / 1 / 1 Регистрация: 16.05.2013 Сообщений: 240
		1
	Определить номера строк матрицы A[N,K], совпадающие с массивом d[k]. Если таких строк нет, выдать соответствующее сообщение 18.05.2013, 22:23. Показов 1746. Ответов 1 Метки нет (Все метки) Определить номера строк матрицы A[N,K], совпадающие с массивом d[k]. Если таких строк нет, выдать соответствующее сообщение. 0

Опции темы

Определить номера строк матрицы A[N,K], совпадающие с массивом d[k]. Если таких строк нет, выдать соответствующее сообщение

Решение