Уменя 3 со всеми. 1)задана последовательность из 10 чисел на интервале (-100,120). найти сумму и количество нечётных чисел, сумму двухзначных чисел , и количество чисел, кратных трём. 2)задана последовательность из 20 чисел. найти сумму чётных чисел, сумму и количество двухзначных чисел,и количество отрицательных чисел. 3)задана последовательность из 15 чисел.найти сумму и количество отрицательных чисел и сумму и количество трёхзначных чисел. большое тому, кто !

{ задание 1}
const
  n=17;
var
  a:array[1..n] of integer;
  i,k:integer;
begin
  Randomize;
  k:=0;
  for i:=1 to n do begin
    a[i]:=Random(99)+1;
    Write(a[i],' ');
    if a[i] mod 2=0 then k:=k+1
    end;
  Writeln;
  Writeln('k=',k)
end.

Пример
43 86 43 13 24 18 93 38 38 59 15 75 12 92 8 72 8
k=10

{ задание 2/3}
const
  n=17;
var
  a:array[1..n] of integer;
  i,s:integer;
begin
  Randomize;
  s:=0;
  for i:=1 to n do begin
    a[i]:=Random(99)+1;
    Write(a[i],' ');
    if a[i] mod 10=2 then s:=s+a[i]
    end;
  Writeln;
  Writeln('s=',s)
end.

Пример
58 39 12 24 91 57 14 44 47 61 31 10 95 54 42 98 76
s=54

1)

program z1;
var
k, m, r: integer;
begin
write('k = ');
readln(k);
write('m = ');
readln(m);
r := 60 * k + m;
writeln('в минутах: ', r);
end.

2)

program z2;
var
k, m, a, b, l: integer;
begin
write('k = ');
readln(k);
write('m = ');
readln(m);
write('a = ');
readln(a);
write('b = ');
readln(b);
write('l = ');
readln(l);
if ( (60 * k + m) + (60 * a + b) ) < (60 * l - 15) then
writeln('пойду')
else
writeln('не пойду');
end.

3)

program z3;
var
m, r: integer;
begin
write('m = ');
readln(m);
r := m;
while r >= 60 do
r := r - 60;
writeln('стрелка будет показывать ', r, ' минут');
end.