Составьте программу заполнения массива из 100 чисел случайными значениями из диапазона от -20 до 20. Подсчитайте в этом массиве количество положительных и количество отрицательных значений.
Ответы на вопрос
Ответил Impersona1
0
program chisla;
var mas:array [1..100] of integer;i,ko,kp:integer;
begin
ko:=0;kp:=0;
Randomize;
for i:=1 to 100 do
begin
mas[i]:=Random(41)-20;
if mas[i]<0 then ko:=ko+1;
if mas[i]>0 then kp:=kp+1;
end;
Writeln('Положительных элементов=',kp);
Writeln('Отрицательных элементов',ko)
end.
var mas:array [1..100] of integer;i,ko,kp:integer;
begin
ko:=0;kp:=0;
Randomize;
for i:=1 to 100 do
begin
mas[i]:=Random(41)-20;
if mas[i]<0 then ko:=ko+1;
if mas[i]>0 then kp:=kp+1;
end;
Writeln('Положительных элементов=',kp);
Writeln('Отрицательных элементов',ko)
end.
Ответил nkpk
0
можно указывать так mas[i]:=Random(-80,80) ; будут и положительные и отрицательные
Новые вопросы