Вместо слов тип укажешь 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.
Цифр не видно, но ответ 25 (уже был такой вопрос)
Последним будет выполнятся импликация, импликация ложна только в одном случае, когда 1 высказывание истинно, а второе высказывание - ложно.
Значит, С точно ложно
<span>( (A¥B)^B) последнее действие конъюнкция. конъюнкция истинна, когда оба высказывания истинны, значит В точно истинно
</span>высказывание А может быть любым, от него результат не зависит.
Не знаю, какой язык тебе нужен, но вот фрагмент на VB Console, он, наверное , должен быть понятен всем
dim a,k,n as integer
N = console.readline
For i as integer = 1 to N
a = <span>console.readline
</span>if a mod 4 = 0 and a > k then k = a
Next
Console.WriteLine(a)