Добавил:
Glavniy_toksik_RTF
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Информатика [РТФ, Андреев, 2 семестр] / Лабораторные / Лабораторные (txt) / Lab4
.txt program Lab4;
type
{Массив:}
m = array[0..9, 0..9] of word;
var
mas : m;
i, j, max, min: word;
begin
randomize;
{Генераци массива:}
for i := 0 to 9 do
for j := 0 to 9 do
mas[i, j] := random(10);
{Вывод массива:}
writeln('Массив:');
for i := 0 to 9 do begin
for j := 0 to 9 do begin
write(mas[i, j], ' ');
end;
writeln('');
end;
writeln('');
{Поиск максимума:}
max := mas[0, 0];
for i := 0 to 9 do
for j := 0 to 9 do
if(mas[i, j] > max) then
max := mas[i, j];
{Поиск минимума:}
min := mas[0,0];
for i := 0 to 9 do
for j := 0 to 9 do
if(mas[i, j] < min) then
min := mas[i, j];
{Вывод максимума:}
write('Максимум: ', max, '. Координаты: ');
for i := 0 to 9 do
for j := 0 to 9 do
if(mas[i, j] = max) then
write('[', i, ', ', j, '] ');
{Вывод минимума:}
writeln('');
write('Минимум: ', min, '. Координаты: ');
for i := 0 to 9 do
for j := 0 to 9 do
if(mas[i, j] = min) then
write('[', i, ', ', j, '] ');
end.
type
{Массив:}
m = array[0..9, 0..9] of word;
var
mas : m;
i, j, max, min: word;
begin
randomize;
{Генераци массива:}
for i := 0 to 9 do
for j := 0 to 9 do
mas[i, j] := random(10);
{Вывод массива:}
writeln('Массив:');
for i := 0 to 9 do begin
for j := 0 to 9 do begin
write(mas[i, j], ' ');
end;
writeln('');
end;
writeln('');
{Поиск максимума:}
max := mas[0, 0];
for i := 0 to 9 do
for j := 0 to 9 do
if(mas[i, j] > max) then
max := mas[i, j];
{Поиск минимума:}
min := mas[0,0];
for i := 0 to 9 do
for j := 0 to 9 do
if(mas[i, j] < min) then
min := mas[i, j];
{Вывод максимума:}
write('Максимум: ', max, '. Координаты: ');
for i := 0 to 9 do
for j := 0 to 9 do
if(mas[i, j] = max) then
write('[', i, ', ', j, '] ');
{Вывод минимума:}
writeln('');
write('Минимум: ', min, '. Координаты: ');
for i := 0 to 9 do
for j := 0 to 9 do
if(mas[i, j] = min) then
write('[', i, ', ', j, '] ');
end.