Program ex;
type mass=array[1..10] of integer;
var sum, i:integer;
sr:real;
C:mass;
begin
writeln;
write ('Введите 10 элементов массива: ');
for i:=1 to 10 do
read(С[i]);
sum:=0;
for i:=1 to 10 do
begin
sum:=sum+c[i];
end;
sr:=sum/2;
write('Среднее арифметическое=',sr);
<span>end.</span>
Линукс от фамилии чувака который его придумал, мак от макинтош - сорта яблок потому что компания эппл, а виндоус потому что они придумали окна. ну и по той же логике логотипы только не знаю почему у линукс пингвин.
В четверичной системе счисления
Var
a :array [1..10] of integer;
i :integer;
begin
randomize;
for i:=1 to 10 do
a[i]:= random(9);
<span>end.</span>
| = ИЛИ
& = И. Т.е (сомики И меченосцы) ИЛИ гуппи
получается если сомики И меченосцы - 100 запросов,
гуппи 500
100+500=600
Ответ 600 запросов