Ввод строки и поиск двузначных чисел в строке | pascal.

Question

Ввод строки и поиск двузначных чисел в строке | pascal.

fghjgtsghf fdrjhs Ученик (95), закрыт 9 лет назад

Ввести строку и найти среднее арифметическое всех двузначных чисел в строке / pascal
Помогите пожалуйста написать программу!

Answer 1

Program DoSs;
var
k,s,i:integer;
n:real;
a:array[1..15] of integer;
Begin
for i:=1 to 15 do
begin
a[i] := random(1000);
write(a[i], ' ; ');
end;
for i:=1 to 15 do
if (a[i]>99) and (a[i]<999) then begin
k:=k+1;
s:=s+a[i];
end;
n:=s/k;
writeln('Среднееарифметичесоке двузначных чисел ',n);
end.

Answer 2

Я вчера тебе уже помог - расписал полный алгоритм. А то, что ты хочешь - это не помощь, а сделать за тебя