Весьма интересно описан процесс перемножения чисел ;)
Результат операции будет в временной с именем z
Var a:array[1..5] of integer;i:integer;m,z:real;
begin
for i:=1 to 5 do
begin
readln(a[i]);
m:=m+a[i];
end;
z:=m/5;
writeln(z);
<span>end.</span>
Система пятеричная. Закончил университет в 24(4*5+4)года, через год 25(1*25+0+0) летним молодым ...... женился на 19(3*5+4) летней девушке. Небольшая разница 6(1*5+1)лет.Мы жили ...... семья, всего 5(1*5+0) детей
¬А∨¬B=F
А В F
0 0 1
0 1 1
1 0 1
1 1 0
а) 1111 , 11111 , 111111 , 1111111 ...
б) 1000 , 10000 , 100000 , 1000000 ...
в) 101 , 111 , 101 . 111 , 101 ...
Вроде так ;Р