Задать массив случайным образом из 8 строк и 8 столбцов. Элементы выбираются от -10 до 10. Найти максимум и минимум элементов.
Решить в ПаскальАВС
148
196
Ответы на вопрос:
===== PascalABC.NET ====
begin
var a := MatrRandom(8, 8, -10, 10);
a.Println;
var s := a.ElementsByRow;
Print('max =', s.Max, ' min =', s.Min)
end.
program mas2_min_max;
const
n=8;
var
a:array[1..n,1..n] of integer;
i,j,max,min:integer;
begin
writeln('Массив 》');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(21)-10;
write(a[i,j]:3,' ');
end;
writeln;
end;
min:=a[1,1];
max:=a[1,1];
for i:=1 to n do
for j:=1 to n do
begin
if min<a[i,j] then
min:=a[i,j];
if max>a[i,j] then
max:=a[i,j];
end;
writeln('Минимальный элемент 》',min);
writeln('Максимальный элемент 》',max);
end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
duekf06.01.2022 11:55
-
Саша764713.04.2022 09:45
-
gsa0430.06.2020 20:01
-
4kusssssp08s5c04.06.2022 23:17
-
Б4528.12.2020 02:10
-
lakomkin200701.03.2022 22:57
-
Znv25060513.06.2020 20:52
-
shik0308200107.07.2021 21:27
-
LizaLongoo19.06.2022 19:35
-
diyoyoroo12.02.2020 18:56
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.