Как найти количество отрицательных элементов массива паскаль

0 / 0 / 0

Регистрация: 03.12.2011

Сообщений: 65

Подсчитать количество отрицательных элементов массива

11.12.2011, 22:28. Показов 1557. Ответов 2

Составьте программу ,которая формирует массив из 16 случ. целых чисел от -20 до 20 и подсчитайте количество отрицательных элементов.

Как помогите…

прогеймер

5 / 5 / 5

Регистрация: 28.11.2011

Сообщений: 46

12.12.2011, 16:24

Сообщение было отмечено Памирыч как решение

Решение

Pascal

program abc;
uses crt;
var m:array[1..16] of real;
i,y:integer;
begin
y:=0;
for i:=1 to 16 do
begin
m[i]:=random(40)-20;
write(m[i],' ');
end;
writeln;
for i:=1 to 16 do
begin
if m[i]<0 then y:=y+1;
end;
writeln(y,' ','отрицательных элементов');
end.

Добавлено через 20 секунд
вот так.

КонецСвета

Почетный модератор

7966 / 3937 / 2464

Регистрация: 30.10.2011

Сообщений: 5,377

12.12.2011, 18:41

маленькая поправка:

Сообщение от прогеймер

m[i]:=random(40)-20;

– это от -20 до 19, а от -20 до 20

Pascal

1	m[i]:=random(41)-20;

Источник

аыфа акыфа

Ученик

(97),
закрыт

4 года назад

написать надо на паскале и нарисовать блок схему, кто умеет, помогите пожалуйста

Лучший ответ

Ирина Анатольевна

Просветленный

(20120)

5 лет назад

var i, n, k: integer;
a: array [1..100] of integer;
begin
write (‘n=’);
readln (n);
k:=0;
for i:=1 to n do
begin
a[i]:= -9 + random (19);
write (a[i]:4);
if a[i] < 0 then inc(k);
end;
writeln;
writeln (‘количество отрицательных элементов = ‘, k);
end.

Остальные ответы

Президент интернета

Просветленный

(42390)

5 лет назад

Очень простая программа. Надо сделать цикл по массиву и найти количество отрицательных элементов массива.

Похожие вопросы

Источник

Формулировка задачи:

1. дан массив из 10 целых чисел, вводимых случайно на [-50;50]. найдите количество отрицательных элементов.

Код к задаче: «Найдите количество отрицательных элементов массива»

textual

uses crt;
var a: array [1..10] of integer;
    i,k: integer;
begin
writeln('Дан массив');
for i:=1 to 10 do
    begin
    a[i]:=random(101)-50;
    write(a[i]:4);
    if a[i]<0 then inc(k);
    end;
writeln;
writeln('Количество отрицательных ',k);
end.

Полезно ли:

8 голосов , оценка 4.000 из 5

Источник

Количество положительных, отрицательных и равных нулю элементов массива

Просмотров 10.8к. Обновлено 15 октября 2021

Сгенерировать 20 случайных целых чисел в диапазоне от -5 до 4, записать их в ячейки массива. Посчитать сколько среди них положительных, отрицательных и нулевых значений. Вывести на экран элементы массива и посчитанные количества.

Присвоить счетчикам положительных, отрицательных и нулевых чисел значения 0.
В цикле
1. генерировать случайное число и записывать его в соответствующую ячейку массива,
2. выводить на экран,
3. сравнивать с нулем и в зависимости от результата увеличить на 1 либо счетчик пложительных чисел, либо отрицательных, либо нулевых.
Вывести на экран значения счетчиков.

Pascal

количество положительных элементов массива паскаль



const N = 20;

var

    a: array[1..N] of integer;

    i, pos, neg, zero: byte;

begin

    randomize;

    pos := 0;

    neg := 0;

    zero := 0;

    for i:=1 to N do begin

        a[i] := random(10)-5;

        write(a[i]:3);

        if a[i] < 0 then

            neg := neg + 1

        else 

            if a[i] > 0 then

                pos := pos + 1

            else

                zero := zero + 1;

    end;

    writeln;

    writeln('Положительных: ', pos);

    writeln('Отрицательных: ', neg);

    writeln('Равных нулю: ', zero);

end.





  0  0 -4 -2  4  0  2 -4  3  0  0 -4  2  2  0 -3 -3  3 -3 -4

Положительных: 6

Отрицательных: 8

Равных нулю: 6

Язык Си



#include 

#define N 20
 
main() {

    srand(time(NULL));

    int a[N],i,neg,pos,zero;

    neg = 0;

    pos = 0;

    zero = 0;

    for (i=0; i< N; i++) {

        a[i] = rand() % 10 - 5;

        printf("%3d", a[i]);

        if (a[i] > 0) pos += 1;

        else if (a[i] < 0) neg += 1;

        else zero += 1;

    }

    printf("nПоложительных: %dn", pos);

    printf("Отрицательных: %dn", neg);

    printf("Равных нулю: %dn", zero);

}





 -5 -4  0 -3  1  3 -2 -4  4 -4  2 -5 -1 -4 -3 -1 -4 -5  1  3

Положительных: 6

Отрицательных: 13

Равных нулю: 1

Python

количество положительных элементов массива python (питон)



from random import random

neg = pos = zero = 0

a = []

for i in range(20):

    n = int(random() * 10) - 5

    a.append(n)

    print(n, end=' ')

    if n > 0:

        pos += 1

    elif n < 0:

        neg += 1

    else:

        zero += 1
 
print("nПоложительных: ", pos)

print("Отрицательных: ", neg)

print("Равных нулю: ", zero)





-4 3 -4 3 -2 3 4 -2 -4 3 -4 -3 0 1 4 -2 2 0 -3 -4 

Положительных:  8

Отрицательных:  10

Равных нулю:  2

КуМир



алг положительные элементы

нач

  цел N = 20

  цел таб a[1:N]

  цел pos=0, neg=0, zero=0,i

  нц для i от 1 до N

    a[i] := int(rand(0,10))-5

    вывод a[i], " "

    если a[i] > 0 то pos := pos + 1

     иначе

      если a[i] < 0 то neg := neg + 1

       иначе zero := zero + 1

      все

    все

  кц

  вывод нс, "Положительных: ", pos

  вывод нс, "Отрицательных: ", neg

  вывод нс, "Равных нулю: ", zero

кон

Basic-256



N = 20

dim a(N)

pos = 0

neg = 0

zero = 0

for i=0 to N-1

	a[i] = int(rand()*10) - 5 # от 4 до -5 

	print a[i]+ " ";

	if a[i] < 0 then

		neg = neg + 1

	else

		if a[i] > 0 then

			pos = pos+1

		else

			zero = zero + 1

		endif

	endif

next i

print

print "Positive: " + pos

print "Negative: " + neg

print "Zero: " + zero





3 4 2 1 3 -4 0 0 -1 4 4 -1 2 -5 -4 -3 3 2 4 -3 

Positive: 11

Negative: 7

Zero: 2

Источник

const
n=10;
var
i,kol:integer;
a:array[1..n] of integer;
begin
for i:=1 to n do
  begin
      a[i]:=10-random(20);
      write(' ',a[i]:3);
  end;
writeln();
writeln('-------');

kol:=0;
for i:=1 to n do
if a[i]<0 then
begin
inc(kol);
end;
writeln(kol);
end.