Составить программу которая в массиве из 10 элементов находят произведение минимума и максимума значимых элементов
Знаешь ответ?
Чтобы оставить ответ, войдите или зарегистрируйтесь.
Ответ или решение 1
Ламир
Type
mas = array [1 ... 10] of integer;
var
x: mas;
min, max: integer;
i: integer;
begin
for i : = 1 to 10 do
readln (x[i]) ;
min : = x[1];
max : = x[1];
for i : = 2 to 10 do begin
if x[i] < min then
min : = x[i];
if x[i] > max then
max : = x[i]
end;
writeln (max * min) ;
end.
mas = array [1 ... 10] of integer;
var
x: mas;
min, max: integer;
i: integer;
begin
for i : = 1 to 10 do
readln (x[i]) ;
min : = x[1];
max : = x[1];
for i : = 2 to 10 do begin
if x[i] < min then
min : = x[i];
if x[i] > max then
max : = x[i]
end;
writeln (max * min) ;
end.
Новые вопросы в разделе Информатика
s3129502@gmail.com
16.02.2024, 13:53
Информатика
7-9 класс
Адинела
05.10.2022, 08:15
Гаязутдин
05.10.2022, 01:10
Алайбек
05.10.2022, 01:05
Акияма
05.10.2022, 01:00
