Pascal:
const n=20;
var a: array[1..n] of integer;
max, min, i: integer;
begin
max:=-11;
min:=11;
for i:=1 to n do begin
a[i]:=random(20)-10; {или readln(a[i]); если нужен конкретный ввод}
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
writeln((max+min)/2);
end.
В переменной day определяется номер последнего элемента массива Dat, который равен первому элементу ⇒ значение переменной day после выполнения цикла = 2
Эл. там только положительный заряд, пр. все зряды
Мне кажется, что эти числа указаны примерно как 1,2,3.
Т.е. А-1 В-2 С-3.
Таким образом: 3,2,1 или С,В,А
"Все люди смертны" и "Сократ человек" - посылки, "Сократ смертен" - заключение.