помогите, нужно в системе паскаль написать программу которая запрашивает 5 чисел...

August 2022 1 12 Report

помогите, нужно в системе паскаль написать программу которая запрашивает 5 чисел и сообщает каких больше-положительных или отрицательных

Answers & Comments

антагонист

Verified answer

Var a,b,bz,sz: integer;
begin
b:=0;
bz:=0;
sz:=0;
while (b<5) do begin
write('введите число ==> ');
readln(a);
if (a>0) then bz:=bz+1;
if (a<0) then sz:=sz+1;
b:=b+1;
end;
if bz>sz then writeln('больше положительных');
if sz>bz then writeln('больше отрицательных');
if sz=bz then writeln('число отрицательных и положительных одинаково');
end.

2 votes Thanks 2

Answers & Comments

Verified answer

pokazhite svyazi kotorye sushestvovali mezhdu processom ogorazhivaniya i razvitiem kap

nesmotrya na nizkuyu rozhdaemost chislennost pingvinov ne sokrashaetsya nazovite pa25adc411474fc55c2fc362bb2e9e77e 47032

vknigel kerrolla alisavstranechudesestodinpersonazh sumasshedshijshlyapn

skolko gradusov soderzhit ugol esli on sostavlyaet a 20 ot 360 gradusov

slova glagoly s neproveryaemoj orfogrammoj na temu sport pzh srochno nado

pomogite reshit zadachi 1 odno chislo bolshe drugogo v 45 raza esli ot bolshego

pomogite srochno ne podveshivaya k dinamometru gruzy poluchite shkalu s cenoj de

perimetr pryamougolnika raven 036 m ego dlina v 2 raza bolshe shiriny chemu rav

kakoj chasti rechi slovo v perepolnennomprilagateelnoe ili prichastie ili chto

pomogite v 1238 g mongoly ne dojdya do novgoroda 100 verst povernuli na yug i u

рекомендуемые вопросы

Helpful Links

Helpful Social