Думаю, что это КОЛОНКА.... или ДИНАМИК или НАУШНИК...
Const n=10;
var a,s,k,i:integer;
begin
Randomize;
s:=0; k:=0;
writeln('Числа:');
for i:=1 to n do
begin
a:=random(201)-100;
write(a:5);
if (a>0)and(a mod 2 = 1) then begin s:=s+a; k:=k+1; end;
end;
writeln;
if k>0
then writeln('Среднее арифметическое положительных нечетных чисел = ',s/k:5:2)
else writeln('Среди чисел нет положительных нечетных');
end.
Пример:
Числа:
11 -60 13 -62 15 -92 -71 87 -15 12
Среднее арифметическое положительных нечетных чисел = 31.50
8. Запишите следующие высказывания в форме логических выражений:
а) фамилия >< Семенов;
б) занятие = геология
в) дата рождения < 5.05.1989
г) дата <= 23.09.1996
д) алгебра >< отлично;
е) автор книги = Беляев А.Р.;
ж) год издания <=1990
з) место нахождения >=3
Что-то такое получилось, пиши в комменты если что не так:
var
a,b,k:longint;
begin
b:=1;
k:=0;
while b<10000 do
begin
read(a);
b:=b*a;
k:=k+1;
end;
writeln('Kol:',k);
writeln('Number:',b);
readln
end.