Составить программу для нахождения суммы минимального и максимального значений среди элементов каждой из линейных таблиц Х[10] и Y[6].
133
453
Ответы на вопрос:
program dfkjlg;
const N=20;
type mas=array[1..N]of real;
var x,y:mas;
procedure vvod(var a:mas;m:integer);
var i:integer;
begin
randomize;
for i:=1 to m do
a[i]:=random(20)-10;
end;
procedure vivod(a:mas;m:integer);
var i:integer;
begin
for i:=1 to m do
write(a[i],' ');
end;
function max(a:mas;m:integer):real;
var i:integer;
begin
max:=a[1];
for i:=2 to m do
if max<a[i] then max:=a[i];
end;
function min(a:mas;m:integer):real;
var i:integer;
begin
min:=a[1];
for i:=2 to m do
if min>a[i] then
min:=a[i];
end;
begin
vvod(x,10);
vvod(y,6);
vivod(x,10);
vivod(y,6);
writeln('максимальный элемент матрицы x= ',max(x,10));
writeln('максимальный элемент матрицы y= ',max(y,6));
writeln('минимальный элемент матрицы x= ',min(x,10));
writeln('минимальный элемент матрицы y= ',min(x,6));
end.
const N=20;
type mas=array[1..N]of real;
var x,y:mas;
procedure vvod(var a:mas;m:integer);
var i:integer;
begin
randomize;
for i:=1 to m do
a[i]:=random(20)-10;
end;
procedure vivod(a:mas;m:integer);
var i:integer;
begin
for i:=1 to m do
write(a[i],' ');
end;
function max(a:mas;m:integer):real;
var i:integer;
begin
max:=a[1];
for i:=2 to m do
if max<a[i] then max:=a[i];
end;
function min(a:mas;m:integer):real;
var i:integer;
begin
min:=a[1];
for i:=2 to m do
if min>a[i] then
min:=a[i];
end;
begin
vvod(x,10);
vvod(y,6);
vivod(x,10);
vivod(y,6);
writeln('максимальный элемент матрицы x= ',max(x,10));
writeln('максимальный элемент матрицы y= ',max(y,6));
writeln('минимальный элемент матрицы x= ',min(x,10));
writeln('минимальный элемент матрицы y= ',min(x,6));
end.
дело в том виде плесневых грибков содержатся вещества которые растворяют оболочку под собой и вокруг себя или же плесень рас
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Другие предметы
-
ATimofeeva19.10.2020 08:12
-
arisha2000300004.04.2023 20:11
-
Ghxvbvc1309.01.2020 17:46
-
bonchuk200929.03.2022 14:50
-
машунька081107.12.2020 01:31
-
romchik23806.02.2022 20:06
-
привет89710.07.2022 18:56
-
Milli20511.01.2020 22:19
-
romanchukana01.02.2023 10:13
-
208дитма80220.10.2022 15:41
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.