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

July 2022 1 7 Report

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

Answers & Comments

Pashq4 Const N = 100;
var a: array[1..n] of integer; i, countp, counts, countz:integer;
begin
for i := 1 to n do begin
a[i] := random( -20, 20 );
write ( a[i], ' ' );
if a[i] > 0 then inc(countp);
if a[i] < 0 then inc(counts);
if a[i] = 0 then inc(countz);
end;
writeln();
writeln('Количество положительных чисел: ', countp);
writeln('Количество отрицательных чисел: ', counts);
writeln('Количество нулей: ', countz); // выводим количество нулей (для проверки, что в сумме у нас 100 элементов)
end.

Answers & Comments

nuzhno reshithotya by 2 zadaniya 3 ne obyazatelno

srochno nuzhna sravnitelnaya harakteristika onegina i pechyorina

pomogite mne reshit zadachu pozhalujsta sharik vyletaetiz detskogo pruzhinnogo pi

pomogite russia governfrom moscow eto nuzhno perevesti v passivnyj zalog

pomogite 20 elementov v massivev diapazone 0 60 zapolnit bez operatora ran

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

Helpful Links

Helpful Social