Заполните одномерный массив случайными целыми числами: положительными, отрицательными, нулями. Определите, на сколько положительных чисел будет больше, чем отрицательных.
Ответы
Ответ дал:
1
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var d:=a.Where(t->t>0).Count-a.Where(t->t<0).Count;
if d>0 then
Writeln('Положительных чисел на ',d,' больше, чем отрицательных')
else
if d<0 then
Writeln('Положительных чисел на ',-d,' меньше, чем отрицательных')
else
Writeln('Положительных и отрицательных чисел поровну')
end.
Пример
n= 15
-9 -46 -40 14 -40 40 -2 31 50 50 13 50 -20 -11 41
Положительных чисел на 1 больше, чем отрицательных
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var d:=a.Where(t->t>0).Count-a.Where(t->t<0).Count;
if d>0 then
Writeln('Положительных чисел на ',d,' больше, чем отрицательных')
else
if d<0 then
Writeln('Положительных чисел на ',-d,' меньше, чем отрицательных')
else
Writeln('Положительных и отрицательных чисел поровну')
end.
Пример
n= 15
-9 -46 -40 14 -40 40 -2 31 50 50 13 50 -20 -11 41
Положительных чисел на 1 больше, чем отрицательных
А можно узнать, зачем это тут?
Хотите дать свое решение, так давайте. Хотите в форме комментария - так давайте под вопросом, а не под чужим ответом.
А иначе это можно считать спамом, который в общем-то наказуем.
Вас заинтересует
3 месяца назад
3 месяца назад
10 месяцев назад
10 месяцев назад
1 год назад
1 год назад
7 лет назад
a: array[1..20] of integer;
begin
for i:=1 to 20 do
begin
a[i]:= random(-10,20);
write(a[i],' ');
if (a[i]>0) then
p:=p+1
else if (a[i] < 0) then
m := m+1;
end;
write('Положительных элементов: ');
writeln(p);
write('Отрицальных элементов: ');
writeln(m);
p := p - m;
write('Положительных больше чем отрицательных на ');
write(p);
writeln(' элемента.')
end.