Помогите пожалуйста нп завтро надо срочно найдите количество положительных и количество отрицательных элементов массива из 8 целвх чисел. Заранее СПАСИБО
Ответы
Ответ дал:
0
// PascalABC.NET 3.3
begin
var a:=ArrRandom(8,-30,30); a.Println;
writeln('Положительных: ',a.Where(x->x>0).Count);
writeln('Отрицательных: ',a.Where(x->x<0).Count);
end.
Пример:
19 17 -1 21 -23 -13 20 24
Положительных: 5
Отрицательных: 3
begin
var a:=ArrRandom(8,-30,30); a.Println;
writeln('Положительных: ',a.Where(x->x>0).Count);
writeln('Отрицательных: ',a.Where(x->x<0).Count);
end.
Пример:
19 17 -1 21 -23 -13 20 24
Положительных: 5
Отрицательных: 3
Ответ дал:
0
Program n1;
var a: array[1..8] of integer;
ko,kp,i: integer;
begin
write('массив: ');
ko:=0;
kp:=0;
for i:=1 to 8 do
begin
a[i]:=random(21)-10;
write(a[i],' ');
if a[i]>0 then kp:=kp+1;
if a[i]<0 then ko:=ko+1;
end;
writeln;
writeln('количество отрицательных: ',ko);
write('количество положительных: ',kp);
end.
var a: array[1..8] of integer;
ko,kp,i: integer;
begin
write('массив: ');
ko:=0;
kp:=0;
for i:=1 to 8 do
begin
a[i]:=random(21)-10;
write(a[i],' ');
if a[i]>0 then kp:=kp+1;
if a[i]<0 then ko:=ko+1;
end;
writeln;
writeln('количество отрицательных: ',ko);
write('количество положительных: ',kp);
end.
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад
8 лет назад