Яна контрольной
по данной блок-схеме написать программу
нач
вв. а, в
а ≠ в или а> 0
а=а+в
в=в+2
кц
выв. а, в
кон​

Const
  pi = 3.14;
  g = 9.81;

var
  v0, alpha, x, y, t: single;

begin
  Write('Введите начальную скорость и угол: ');
  Readln(v0, alpha);
  Writeln('  t        x            y');
  t := 0;
  while t <= 10 do
  begin
    x := v0 * t * cos(alpha * pi / 180);
    y := v0 * t * sin(alpha * pi / 180) - g * t * t / 2;
    Writeln(t:4:1, x:11:3, y:13:3);
    t := t + 0.5
  end
end.

Тестовое решение:
Введите начальную скорость и угол: 30 60
  t        x            y
 0.0      0.000        0.000
 0.5      7.507       11.760
 1.0     15.014       21.068
 1.5     22.521       27.923
 2.0     30.028       32.326
 2.5     37.534       34.276
 3.0     45.041       33.773
 3.5     52.548       30.819
 4.0     60.055       25.411
 4.5     67.562       17.551
 5.0     75.069        7.239
 5.5     82.576       -5.526
 6.0     90.083      -20.743
 6.5     97.590      -38.413
 7.0    105.097      -58.535
 7.5    112.603      -81.110
 8.0    120.110     -106.138
 8.5    127.617     -133.617
 9.0    135.124     -163.550
 9.5    142.631     -195.935
10.0    150.138     -230.772

Отрицательные значения y в данном случае показывают, что тело как бы продолжает падать ниже первоначального уровня, что возможно только если с горы кидать что-то в пропасть)))

Program z1;
uses crt;
const n=10;
var a: array[1..n] of integer;
i, s: integer;
begin
clrscr;
s:=0;
writeln('Введите элементы массива');
for i:=1 to n do begin
read(a[i]); // ввод элементов в одну строку через пробел
if a[i] mod 2 = 1 then inc(s)
end;
writeln(s);
readkey;
end.

program z2;
uses crt;
const n=5;
var a: array[1..n] of real;
i: integer;
s: real;
begin
clrscr;
s:=0;
writeln('Введите элементы массива');
for i:=1 to n do begin
read(a[i]); // ввод элементов в одну строку через пробел
if a[i]>2 then s:=s+sqr(a[i])
end;
writeln(s);
readkey;
end.

program z3;
uses crt;
const n=5;
var a1, a2, a3: array[1..n] of integer;
i: integer;
begin
clrscr;
randomize;
for i:=1 to n do begin
a1[i]:= random(100)+1; // рандомное число от 1 до 100 
a2[i]:= random(100)+1;
a3[i]:=a1[i]-a2[i];
writeln(a1[i], '   ', a2[i], '   ', a3[i]);
end;
readkey;
end.

program z4;
uses crt;
const n=10;
var a: array[1..n] of integer;
max, c, i: integer;
begin
clrscr;
writeln('Введите элементы массива');
for i:=1 to n do read(a[i]);
max:=a[i];
for i:=1 to n do begin
if max<a[i] then begin max:=a[i]; c:=i
end
end;
writeln('');
writeln('max=', max, '  номер=', c);
readkey;
end.