Составьте программу заполнения массива из ста чисел, со случайными значениями из...

August 2022 1 17 Report

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

Answers & Comments

petyaGavrikov

Verified answer

Const n=100;
var x : array[1..n] of integer;
i,k1,k2 : integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
x[i]:=random(41)-20;
write(x[i],' ');
end;
writeln;
for i:=1 to n do
begin
if x[i]<0 then k1:=k1+1;
if x[i]>0 then k2:=k2+1;
end;
writeln('k1=',k1,' k2=',k2);
end.

1 votes Thanks 0

Answers & Comments

Verified answer

postroit tablicu zavisimosti xy na otrezke ot a do b s shagom h01 yxsin x

pomogite vspomnit 2 literaturnyh proizvedeniya gde proyavlyaetsya sochuvstvie zhalo

evropejskij yug samyj mnogonacionalnyj rajon rossii kakie problemy voznikayut iz

podskazhite pozhalujsta nuzhna li v dannom predlozhenii pered slovom pust zapyataya

pomogite pozhalujsta podobrat literaturnye proizvedeniya gde proyavlyaetsya ravno

pomogite privesti primery egoistichnyh lyudej iz hudozhestvennoj literatury

pomogite reshit sin2 x 05

napishite pozhalujsta reakciyu polimerizacii geksena

kak nazyvaetsya eto veshestvo ch3 ch2 cch33

sostavte strukturnuyu formu dlya 12 dimetilbutana

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

Helpful Links

Helpful Social