Помогите написать программу по блок-схеме (Паскаль)

Question

Помогите написать программу по блок-схеме (Паскаль)

Ольга Знаток (335), на голосовании 10 лет назад

Задан числовой массив А (m,n). Некоторый элемент этого массива назовем седловой точкой, пусть он является одновременно наименьшим в своей строке и наибольшим в своем столбце. Разработайте алгоритм, составьте программу по этому алгоритму, позволяющую напечатать номера строки и столбца какой-нибудь седловой точки, если она существует, и напечатать число 0, если такой точки нет.
Помогите написать программу по блок-схеме (Паскаль)

Помогите написать программу по блок-схеме (Паскаль)

Answer 1

переделай программу под свою, не получится, пиши в адрес
{Двумерный массив. Организовать его ввод в виде матрицы,
найти наименьший нечетный и вывести его, а также его место (номер строки и столбца}
program massiv;
uses crt;
type mas= array[1..100,1..100] of integer;
var
j,i,n,m,min,nmin,mmin:integer;
a: mas;
fl:boolean;
BEGIN
clrscr;
writeln('решение задачи на массивы ');
writeln('---------------------------');
write('Ввести число строк --> ');
readln(n);
write('Ввести число столбцов --> ');
readln(m);
writeln('Исходный массив ');
writeln('----------------');
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(51)-25;
write(a[i,j]:4); end;
writeln;
end;
writeln('поиск min ');
writeln('----------------');
min:=100;
for i:=1 to n do
for j:=1 to m do begin
if (a[i,j]<min) and (odd(a[i,j])) then begin
min:=a[i,j]; nmin:=i; mmin:=j end;
end;
writeln('min= ',min,' строка= ',nmin,' столбец=',mmin);
writeln('конец задачи ');
readln;
END.