Question

1.Дан массив натуральных чисел.Вывести на экран все двухзначные числа.
2. В массиве хранятся сведенья об оценках 25-ти учеников по английскому языку.Определить количество "5", "4", "3", "2".

Answer 1

1.
program one
var
i:integer;
mas : array[1..n] of integer;
begin
for i:=1 to n do
begin
if (mas[i] < 100) and (mas[i] > 9) then
writeln(mas[i]);
end;
end.

Answer 2

Var  Y, a,b,c,d:real;
begin
a:=5;
b:=4;
c:=3;
d:=2;
Y:=('formula');
readln;
end.
Приблизительно как то так, формулу сами подставите что бы определить кол-во 25 человек.