4) Дурыс нусканы белгилениз

Uses Crt;
const
  n=15;
var
  a:array[1..n] of integer;
  i,j,k,t:integer;
  found:boolean;
begin
  ClrScr;
  Randomize;
  Writeln('Исходный массив:');
  for i:=1 to n do begin
    a[i]:=Random(90)+1;
    Write(a[i],' ')
  end;
  Writeln;
  i:=n; found:=False;
  repeat
    found:=(a[i] mod 2=0);
    if (not found) then Dec(i)
  until found or (i=0);
  if found then begin
    for i:=i to n-1 do a[i]:=a[i+1];
    Writeln('Результирующий массив:');
    for i:=1 to n-1 do Write(a[i],' ')
  end;
  ReadKey
end.
Тестовое решение:
Исходный массив:
60 90 39 83 24 70 82 53 45 5 12 9 85 57 47
Результирующий массив:
60 90 39 83 24 70 82 53 45 5 9 85 57 47

Uses Crt;
const
  pi=3.14159;
var
  x,y,h,max,min,d:real;
begin
  ClrScr;
  max:=-100; min:=100; x:=0; h:=1.1;
  while x<=11+h/2 do begin
    y:=x-pi;
    Writeln(x:10:7,y:12:7);
    if max<y then max:=y;
    if min>y then min:=y;
    x:=x+h;
  end;
  d:=abs(max-min);
  Writeln(d:10:7);
  ReadKey
end.

Результат выполнения программы:
 0.0000000  -3.1415900
 1.1000000  -2.0415900
 2.2000000  -0.9415900
 3.3000000   0.1584100
 4.4000000   1.2584100
 5.5000000   2.3584100
 6.6000000   3.4584100
 7.7000000   4.5584100
 8.8000000   5.6584100
 9.9000000   6.7584100
11.0000000   7.8584100
11.0000000