Дистанционная подготовка: Быстрее есть программа
Быстрее есть программа
от Алмаз Ханнанов - Вторник 7 Май 2019, 11:22
112364. Поиск в матрице
  var i,j,equal,summ:int64;
var ic,jc:int64;
var arr: array[,] of int64;
begin
read(j,i);
arr := new int64[i,j];
for ic:=0 to i-1 do
  for jc:=0 to j-1 do begin
    read(arr[ic,jc]);
  end;
read(equal);
for ic:=0 to i-1 do
  for jc:=0 to j-1 do begin
    if arr[ic,jc] = equal then inc(summ)
  end;
writeln(summ);
//writeln(arr)
end.