Найти третий с конца матрицы положительный элемент и его место положение - Pascal ABC

Формулировка задачи:

Дано: Массив A(N,M).Найти 3 с конца положительный элемент и его место положение.(без подпрограмм)


textual

Код к задаче: «Найти третий с конца матрицы положительный элемент и его место положение - Pascal ABC»

uses crt;
const n=5;
      m=6;
var a: array[1..n,1..m] of integer;
    i,j,z:integer;
begin
randomize;
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=-50+ random(100);
    write(a[i,j]:4);
   end;
 writeln;
end;
z:=0;
for i:=n downto 1 do
for j:=m downto 1 do
 begin
  if a[i,j]>0 then z:=z+1;
  if z=3 then
   begin
    write('третий положительный элемент находится по адресу a[',i,',',j,'];');
    exit;
   end;
 end;
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

6   голосов, оценка 3.667 из 5

Источник