Дан массив действительных чисел из N членов подсчитать сколько в нем отрицательных, положительных и нулевых элементов [закрыт]
Учебные задания допустимы в качестве вопросов только при условии, что вы пытались решить их самостоятельно перед тем, как задать вопрос. Пожалуйста, отредактируйте вопрос и укажите, что именно вызвало у вас трудности при решении задачи. Например, приведите код, который вы написали, пытаясь решить задачу
Закрыт 2 года назад .
Дан массив действительных чисел из N членов подсчитать сколько в нем отрицательных, положительных и нулевых элементов
Найти количество положительных и отрицательных элементов в одномерном массиве.
program zz1;
var mas:array[1..10] of integer;
i,m,k:integer;
begin
for i:=1 to 10 do //заполняем массив случайными числами от -10 до 10
mas[i]:=random(21)-10;
for i:=1 to 10 do //выводим полученный массив на экран
write(mas[i],’ ‘);
writeln; //переходим на новую строку для вывода
for i:=1 to 10 do
if mas[i]>0 then k:=k+1; //проверяем, если число из массива больше нуля, то считаем его
write(‘количество положительных элементов в массиве — ‘,k); //выводим ответ
writeln; //переходим на новую строку для вывода
for i:=1 to 10 do
if mas[i]<0 then m:=m+1; //проверяем, если число из массива меньше нуля, то считаем его
write(‘количество отрицательных элементов в массиве — ‘,m); //выводим ответ
end.
Определение наличия в массиве отрицательных чисел.
Напишем программу, которая определяет наличие в массиве отрицательных чисел.
Определение наличия в массиве отрицательных чисел.
В строке №7 записываем переменную для хранения количества отрицательных элементов.
Строка №13-№14 генерируем случайные числа и выводи их на экран.
В строке №17 присваиваем «K» первоначальное значение равное 0.
В строке №19 записываем условие: если значение элемента массива (т.е. если сгенерированное число) меньше 0, тогда увеличиваем переменную «K» на единицу (строка №20).
В строке №21 записываем условие: если K>0 (т.е. если количество отрицательных чисел больше 0), тогда выводим на экран 2 сообщения (строка №23 и №24). В обратном случае (строка №26), выводим другое сообщение (строка №27).
Информатика. Паскаль.
begin
clrscr;
write(‘n= ‘); readln(n);
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
if a[i]<0 then count:=count+1;
writeln(‘В вашем массиве ‘, count, ‘ отрицательных элементов’);
readln;
end.
// PascalABC.NET 3.3, сборка 1561 от 02.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger(‘n=’),-50,50); a.Println;
Writeln(‘Отрицательных элементов- ‘,a.Where(x->x<0).Count)
end.
Пример
n= 15
27 46 -29 -31 28 49 18 16 -5 -11 -20 30 -33 -14 41
Отрицательных элементов- 7