РЕШИТЕ Выберите один ответ: А) 1-3; 2-1; 3-3; 4-2 Б) 1-1; 2-3; 3-4; 4-2 В) 1-4; 2-3; 3-1; 4-1 Г) - id1770718120200218 от zarinaa2004 18.02.2020 08:23

Question

Информатика: РЕШИТЕ Выберите один ответ: А) 1-3; 2-1; 3-3; 4-2 Б) 1-1; 2-3; 3-4; 4-2 В) 1-4; 2-3; 3-1; 4-1 Г) >

zarinaa2004 · Accepted Answer

Вместо слов тип укажешь real если массив действительных чисел или integer - если целые числа

var a: array[1..10] of тип
i,n:integer; max, min, sum: тип
begin
write('Введите количество элементов массива'); readln(n);
for i:=1 to n do read(a[i]);
max:=a[1]; min:=a[1];
for i:=2 to n do if a[i]>max then max:=a[i];
for i:=2 to n do if a[i]>min then min:=a[i];
sum:=0;
for i:=1 to n do if (a[i]>min) and (a[i]<max) then sum:= sum+a[i];
write('Сумма элементов массива расположенных между максимальным и минимальным = ', sum);
end.

РЕШИТЕ Выберите один ответ: А) 1-3; 2-1; 3-3; 4-2 Б) 1-1; 2-3; 3-4; 4-2 В) 1-4; 2-3; 3-1; 4-1 Г) ">

MOGZ ответил