Составить программу заполняя масива из 100 чисел случаиними значениями -20 до 20...

May 2021 1 7 Report

Составить программу заполняя масива из 100 чисел случаиними значениями -20 до 20 . Почитать количество отрецательних и положительних чисел . помогитеееееееееееееееееееееее

Answers & Comments

flexlug16 Var A:array[1..100] of integer;
i,Ko,Kp:integer;
Begin
Ko:=0;
Kp:=0;
Write('Исходный массив: ');
For i:= 1 to 100 do
    Begin
    A[i]:=random(41)-20;
    Write(A[i],' ');
    if A[i]<0 then Ko:=Ko+1
    else if A[i]>0 then Kp:=Kp+1;
    End;
WriteLn;
WriteLn('Количество отрицательных: ',Ko);
WriteLn('Количество положительных: ',Kp);
End.

1 votes Thanks 1

VARDYAN спс но мне паскал надо пишите пожалуста паскале

flexlug16 а это не паскаль? о_0

Answers & Comments

nuzhen perevod teksta ne s perevodchika this morning my husband announced that h

obshij vopros specialnyj vopros razdelitelnyj vopros vopros k podlezhashemual

nuzhna pomosh pomogite dayu 20b

BEGIN-BEGAN-BEGUN DECIDE-.....-..... SEEM-....-..... START-....-... STOP-....-...

sochinenie rassuzhdenie na temukak ya ponimayu hrabrost1e2f786b50c5f0240960bc3ad037b9f3 32396

temnye allei iabunina pechalnaya istoriya lyubvi lyudej raznyh socialnyh sloev

poluchenie so i co2 v promyshlennosti v laboratorii

UKAJITE KOLICHESTVO GRAMMATICHESKIX OSNOV V PREDLOJENII. OTEC I SIN SIDELI V EDI...

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

Helpful Links

Helpful Social