milkline-nn
?>

Небольшой доклад на тему история языка паскаль Информатика 7 класс. Заранее

Информатика

Ответы

kulikovtsud

Нуль считаем особым числом ни положительным ни отрицательным.

 

 Program Amount;
Uses crt;
var i,n,otr,pol,nz,v:integer;

begin
clrscr;
write('Input n=');
readln(n);
otr:=0;nz:=0;pol:=0;
randomize;
for i:=1 to n do
begin
v:=random(10)-5;
write(v);write(' ');
if (v>0) then pol:=pol+1
else if (v<0) then otr:=otr+1;
end;

nz:=otr+pol;
writeln;
writeln('Amount of positive numbers:',pol); {Кол-во полжительных чисел}
writeln('Amount of negative numbers:',otr); {Кол-во отрицательных чисел}
writeln('Amount of non-zero numbers:',nz); {Кол-во ненулевых чисел}

readkey;

end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Небольшой доклад на тему история языка паскаль Информатика 7 класс. Заранее
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Aleksandrivanovna
Yelizaveta1848
prianik6
Sacharov84
Михайлов
Yelena_Yuliya1847
kmalahov
raa-0485428
kayrina
dannytr
vetviptime
fakyou170
ilplakhotin8734
kuchino09
yanermarina87