Задан одномерный массив из N чисел. Сосчитать количество элементов массива:
а) положительных; б) отрицательных; в) нулевых.
Answers & Comments
миланаотличница
Const N = 10; var mas: array [1..N] of integer; i,x,y,z:integer; begin for i:=1 to 10 do read(mas[i]); x:=0; y:=0; z:=0; for i:=1 to 10 do begin if mas[i]>0 then x:=x+1 else if mas[i]<0 then y:=y+1 else z:=z+1 end; writeln('Положительных элементов: ',x); writeln('Отрицательных элементов: ',y); writeln('Нулевых элементов: ',z); end.
1 votes Thanks 2
nkpk
//PascalABC.NET 3.3,сборка 1611 от 06.01.2018
//Внимание! Если программа не работает, обновите версию!
Answers & Comments
var
mas: array [1..N] of integer;
i,x,y,z:integer;
begin
for i:=1 to 10 do
read(mas[i]);
x:=0;
y:=0;
z:=0;
for i:=1 to 10 do begin
if mas[i]>0 then
x:=x+1
else if mas[i]<0 then
y:=y+1
else
z:=z+1
end;
writeln('Положительных элементов: ',x);
writeln('Отрицательных элементов: ',y);
writeln('Нулевых элементов: ',z);
end.
//Внимание! Если программа не работает, обновите версию!
begin
var N:=readinteger('N=');
var mas:=ArrRandom(N,-20,20); mas.Println;
writeln('Положительных элементов: ',mas.Count(t->t>0));
writeln('Отрицательных элементов: ',mas.Count(t->t<0));
writeln('Нулевых элементов: ',mas.Count(t->t=0));
end.