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

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

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.

Вот так правильно и тебе там нужно объявить M_PI
#include <iostream>#include <cmath>using namespace std;int main(){    int x;    float A;    cout<<"Введите Ñ…=";    cin>>x;    if (x >= M_PI){        A=0;        cout<<"y=0"; }    else if(M_PI>x && x>=0) {        A=sin(x);        cout<<"y=sin(x)"; }    else if (0>x && x>=-2){        A=0;        cout<<"y="; }    else if (x<=-2) {        A = pow((x+2),2);        cout <<"y="; }
return 0;}

Var min,max,i,s,n:integer;
begin
randomize;
write('Введите диапазон: '); readln(min,max);
if(min>max) then begin
max:=max+min;
min:=max-min;
max:=max-min;
end;
write('Введите количество чисел: '); readln(n);
for i:=1 to n do begin
n:= min + random(max-min);
write(i,'-е число: ', n);
if((n>6) and (not odd(n))) then begin
s:=s+n;
writeln(' (Четное и >6, сумма равна: ', s,')')
end
else begin write(' (Не четное');
if(n>6) then writeln(', но >6)')
else writeln(' и <6)');
end;
end;
write('Сумма четных чисел >6 равна: ',s);
end.