Pascal ABC.

[Brother_the_best]

Это всё одна задача.
1)Определить количество отрицательных элементов a[i]э[-100;100].
2)Определить сумма элементов, принадлежащих интервалу [20;95].
3)Все элементы, значения которых >=17, заменить числом 71.

[ZX Spectrum-128]

Не вижу ничего сложного в задаче, решается "на два пальца ...". Собственно, сами что-то пытались сделать?

[Brother_the_best]

Конечно, пытался. Поэтому обратился за помощью.

[ZX Spectrum-128]

Вот и прекрасно! Значит, по крайней мере, заполнение массива у вас есть?

[Brother_the_best]

Массив есть, но составлен неверно.

[ZX Spectrum-128]

Так покажите код, подправим.

[Brother_the_best]

Var
a: Array[1..100] of Integer;
i,k1,k2,n,s: Integer;
BEGIN
Writeln('Введите кол-во элементов: ');
Readln(n);
For i:=1 to n do
begin
Writeln('a[',i,']=');
Readln(a[i]);
If a[i]<0 Then Inc(k2);
end;
Writeln('Кол-во отрицательных чисел: ',k2);
Readln;
k:=0;
s:=0;
for i:= 1 to 75 do
if (a[i]>=20) and(a[i]<=95) then begin
s:=s+a[i];
k:=k+1;
end;
for i:=1 to n do
if a[i] >= 17 then a[i]:=71;
END.
Не понимаю, что не получается...

[ZX Spectrum-128]

Var
  a: Array[1..100] of Integer;
  i,k2,n,s: Integer;
BEGIN
  k2:=0;
  Writeln('Введите кол-во элементов: ');
  Readln(n);
  For i:=1 to n do
    begin
      Writeln('a[',i,']=');
      Readln(a[i]);
      If a[i]<0 Then
        Inc(k2);
    end;
  Writeln('Кол-во отрицательных чисел: ',k2);
  s:=0;
  for i:= 1 to 75 do
    if (a[i]>=20) and(a[i]<=95) then
      s:=s+a[i];
  Writeln('Сумма чисел в интервале: ',s);
  for i:=1 to n do
    if a[i] >= 17 then
      a[i]:=71;
  For i:=1 to n do
    Write(a[i],' ');
END.

[Brother_the_best]

Спасибо огромное.