В массиве из 10 чисел с плавающей точкой найти кол-во положительных и кол-во отрицательных чисел (Паскаль)
В массиве из 10 чисел с плавающей точкой найти кол-во положительных и кол-во отрицательных чисел (Паскаль)
Гость
Ответ(ы) на вопрос:
Гостьconst n=10;
var a:array[1..n] of real;
i,k1,k2:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=10*random-5;
write(a[i]:5:2,' ');
end;
writeln;
k1:=0; k2:=0
for i:=1 to n do
if a[i]>0 then k1:=k1+1 else k2:=k2+1;
writeln('k1 = ',k1,' k2 = ',k2);
end.
Пример:
Массив A:
-4.38 -2.39 -0.58 1.36 2.48 -4.49 -3.41 -0.04 0.20 2.94
k1 = 4 k2 = 6
Гость// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
var a:=ArrRandom(n,-9900,9900).Select(x->x/100); a.Println;
Writeln('Количество отрицательных элементов ',a.Where(x->x<0).Count);
Writeln('Количество положительных элементов ',a.Where(x->x>0).Count)
end.
Пример
n= 9
-6.69 -71.7 -15.46 -23.53 51.7 2.86 -81.88 70.93 56.41
Количество отрицательных элементов 5
Количество положительных элементов 4
Не нашли ответ?
Похожие вопросы