Матрицы

[FinnishSanity]

Очень прошу помочь с решением задачи! Огромное спасибо тем, кто откликнется.
http://rgho.st/7ZFddgNZs

[ura_111]

Фотки нет...

А сам что сделал, к этому моменту?

[Alex11223]

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

А сам что сделал, к этому моменту?

Создал тему на форуме

[Aleksandr H.]

Это до чего же лень дошла: делать скриншот, сохранять, лить на файлопомойку, но не набрать текст. К тому же, уверен в гугле такую задачу мусолили не один раз.

[FinnishSanity]

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

Очень прошу помочь с решением задачи! Огромное спасибо тем, кто откликнется.
http://rgho.st/7ZFddgNZs

вот код с ошибкой/ошибками:

type a=array[1..5,1..6] of integer;
     vec = array[1..5] of integer;
var n,m,k,i,s:integer;
    b : vec;
    mas:a;
    
procedure vvod(var n,m:integer; var mas:a);
var i,j:integer;
    f:text;
begin
 assign(f,'tet.txt');
 reset(f);
 readln(f,n,m);
  for i:=1 to n do
   begin
    for j:=1 to m do
    read(f,mas[i,j]);
    readln(f);
   end;
 close(f);
end;

procedure vuvod(n,m:integer; mas:a);
var i,j:integer;
    f:text;
begin
 assign(f,'tet.txt');
 reset(f);
 writeln(f);
  for i:=1 to n do
   begin
    for j:=1 to m do
    write(f,mas[i,j]:3);
    writeln(f);
   end;
 close(f);
end;

procedure kol(n,m:integer; var mas:a);
var i,k,j:integer;
begin
  k := 0;
  for i:=1 to n do
   for j:=1 to m do
    if mas[i,j] > 10 then inc(k);
  kol:=k
end;

begin
  vvod(n,m,mas);
  vuvod(m,n,mas);
  for i := 1 to n do
    b[i]:=kol(n,m,mas);
  writeln('массив количеств:');
  for i := 1 to n do write(b[i]:4)
end.

Пожалуйста, оформляйте Ваш код согласно правилам.

[kropotkina-alice]

Со зрением как, нормально?
Я к тому, что раздел тут есть такой - "Помощь скубентам" называется...
Кстати, самый первый раздел, аж в самом верху...
А вот этот раздел называется "Общие вопросы Delphi".
Чем Дельфи отличается от школьного паскаля хоть знаешь?