Добавил:
Glavniy_toksik_RTF
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Информатика [РТФ, Андреев, 2 семестр] / Лабораторные / Лабораторные / Lab7
.pas program Lab7;
uses Lab6;
var
arrayMax, arrayMin, arrayLength, i, j:word;
begin
arrayLength:=9;
arrayCreate(arrayLength, 10);
arrayMaxAndMin(arrayLength);
arrayMaxAndMinWrite(arrayLength);
arrayMax:=Lab6.max;
arrayMin:=Lab6.min;
writeln('');
write('Координаты максимума: ');
for i := 0 to arrayLength do
for j := 0 to arrayLength do
if(mas[i, j] = arrayMax) then
write('[', i, ', ', j, '] ');
writeln('');
write('Координаты минимума: ');
for i := 0 to arrayLength do
for j := 0 to arrayLength do
if(mas[i, j] = arrayMin) then
write('[', i, ', ', j, '] ');
end.
uses Lab6;
var
arrayMax, arrayMin, arrayLength, i, j:word;
begin
arrayLength:=9;
arrayCreate(arrayLength, 10);
arrayMaxAndMin(arrayLength);
arrayMaxAndMinWrite(arrayLength);
arrayMax:=Lab6.max;
arrayMin:=Lab6.min;
writeln('');
write('Координаты максимума: ');
for i := 0 to arrayLength do
for j := 0 to arrayLength do
if(mas[i, j] = arrayMax) then
write('[', i, ', ', j, '] ');
writeln('');
write('Координаты минимума: ');
for i := 0 to arrayLength do
for j := 0 to arrayLength do
if(mas[i, j] = arrayMin) then
write('[', i, ', ', j, '] ');
end.