Дана целочисленная матрица размера 5 на 5. Найти минимальный элемент - Pascal ABC

Узнай цену своей работы

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

Дана целочисленная матрица размера 5 на 5. Найти минимальный элемент

Решение задачи: «Дана целочисленная матрица размера 5 на 5. Найти минимальный элемент»

textual
Листинг программы
const n=5;
var a:array [1..n,1..n] of integer;
i,j,min:integer;
BEGIN
min:=MaxInt;
For i:=1 to n do
  For j:=1 to n do
  If a[i,j]<min THEN min:=a[i,j];
Writeln (min);
END.

Оцени полезность:

14   голосов , оценка 4.357 из 5
Похожие ответы