Целые числа Опции

[Данила]

Дан массив действительных чисел, размерность которого N. Подсчитать сколько в нём отрицательных, положительных и нулевых элементов.

Даны действительные числа а1,а2,... ,аn. Поменять местами наибольший и наименьший элементы.

Даны целые числа а1,а2,... ,аn. Вывести на печать только те числа, для которых выполняется аi <= i.
:molitva:

[klem4]

Если уж на то пошло, то можно обойтись вообще без 3-й переменной :yes:
:low:

Код

uses crt;
const n=5;
var x:array[1..n] of integer;
  s1,s2:integer;
  i:integer;

Begin
 clrscr;
 s1:=0;
 s2:=0;
 for i:=1 to n do
  begin
     readln(x[i]);
     if x[i]>0 then inc(s1)
      else if x[i]<0 then inc(s2)
  end;
  writeln;
  writeln('"+" ',s1);
  writeln('"-" ',s2);
  writeln('"0" ', n-s1-s2);
  readln;
end.

Сообщение отредактировано: klem4 - 30.01.2005 14:05