Прошу вас помочь мне решить задачи по паскалю

дана последовательность из n чисел. подсчитать среднее арифметическое только двузначных чисел. где n может принимать значения 0<n<200, а числа в диапазоне от -1000 до 1000.

заранее благодарю

1

Ответы и объяснения

Лучший Ответ!
2013-02-25T20:58:39+04:00

Program Pr1;
uses crt;
var mas:array[0..200] of integer;
n,i,a,b:integer;
Begin
clrscr;
randomize;
readln(n);
for i:=0 to n do mas[i]:=-1000+random(2001);
a:=0;
b:=0;
for i:=0 to 200 do if (mas[i]<100) and (mas[i]>9) then begin
a:=a+mas[i];
b:=b+1;
end;
if b<>0 then writeln(a/b)
else writeln('NO');
end.