На языке Паскаль:
const n=5; - объявляем константу n, в которой будет храниться размер двумерного массива
var a:array [1..n,1..n] of integer;-объявляем массив
min:integer;-объявление переменной где будет храниться минимальный элемент
i,j:byte;-объявляем две вс переменные для цикла
begin - тело программы
for i:=1 to n do - цикл по строкам
for j:=1 to n do begin - цикл по столбцам
readln(a[i,j]); - вводим элемент в массив
if (i=1) and (j=1) then min:=min:=a[i,j]; - здесь происходит присваивание первого элемента для сравнения с последующими
if min>a[i,j] then min:=a[i,j]; - проверяем на условие минимума, если переменная min больше элемента массива, то присваиваем ей значение массива
end;
writeln('Минимальный элемент двумерного массива=',min); - вывод минимального элемента
end.
программа на Turbo pascal 7.1:
содержание progs.pas:
{$N+}{-директива для подключения 8087 препоцессора}
uses output1; {здесь подключаем модуль output1}
var p:double;
function F1(p:double):double;
begin
F1:=Sqr(p);
end;
procedure P1(var p:double);
begin
readln(p);
p:=F1(p);
end;
begin
write('Введите длину стороны квадрата = ');
P1(p);
P2(p);
end.
содержание output1.tpu:
{$N+}{-директива для подключения 8087 препоцессора}
unit output1;{здесь объявляем модуль output1}
interface
procedure P2(p:double);
implementation
procedure P2;
begin
writeln('Площадь квадрата = ',p:0:5);
end;
end.
