Синформатикой найти минимальный и максимальный элементы из данных массива размера n , вывести их в произведение. (не понимаю , как делать )

ВалентинЛаднов ВалентинЛаднов    3   16.07.2019 06:50    0

Ответы
Yana18102001 Yana18102001  03.10.2020 05:25
Вот решение на бейсике.

Синформатикой найти минимальный и максимальный элементы из данных массива размера n , вывести их в п
ПОКАЗАТЬ ОТВЕТЫ
kmurtazalieva72 kmurtazalieva72  03.10.2020 05:25
Var a:array[1..100] of integer; 
i,n,min,max:integer; 
begin 
writeln('Введите количество элементо массива'); 
read(n); 
writeln('Введите элементы массива'); 
for i:=1 to n do begin 
read(a[i]); 
end; 
min:=a[1]; 
max:=a[1]; 
for i:=1 to n do begin 
if a[i]>max then max:=a[i]; 
if a[i]<min then min:=a[i]; 
end; 
writeln('Произведение min и max = ', min*max); 
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика