|
0 / 0 / 0 Регистрация: 03.12.2011 Сообщений: 65 |
|
|
1 |
|
Подсчитать количество отрицательных элементов массива11.12.2011, 22:28. Показов 1557. Ответов 2
Составьте программу ,которая формирует массив из 16 случ. целых чисел от -20 до 20 и подсчитайте количество отрицательных элементов. Как помогите…
0 |
|
прогеймер 5 / 5 / 5 Регистрация: 28.11.2011 Сообщений: 46 |
||||
|
12.12.2011, 16:24 |
2 |
|||
|
Решение
Добавлено через 20 секунд
0 |
Сообщение было отмечено Памирыч как решение
|
КонецСвета Почетный модератор 7966 / 3937 / 2464 Регистрация: 30.10.2011 Сообщений: 5,377 |
||||
|
12.12.2011, 18:41 |
3 |
|||
|
маленькая поправка:
m[i]:=random(40)-20; — это от -20 до 19, а от -20 до 20
0 |
аыфа акыфа
Ученик
(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 либо счетчик пложительных чисел, либо отрицательных, либо нулевых.
- Вывести на экран значения счетчиков.
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 20main() {
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 += 1print("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 "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.
Результат работы программы
Похожие записи/страницы:
- Определить значение F и выдать результат на экран, если F= (K1+K2)*М1- (S1+S2)*М2, где: К1- количество отрицательных…
- Дана матрица А(4х4). Определить количество отрицательных элементов каждой строки массива. Найти сумму этих чисел…
- Создать одномерный массив из 18 элементов. Каких чисел в последовательности больше: отрицательных или положительных -…
- Заданы 4 одномерных массива A, B, C, D. Количество элементов каждого массива не превышает 60. Для каждого массива…
- Дано 2 массива 10 целых чисел. Найти сумму кратных 3 и вывести номера отрицательных элементов — Pascal(Паскаль)
- Дан массив А, сформировать из целых частей отрицательных элементов этого массива другой массив, используя вложенные…
- Построить новую матрицу, отличающуюся от заданной тем, что на главной диагонали все отрицательные элементы заменены их…
- Найти сумму всех элементов массива целых чисел, которые меньше среднего арифметического элементов массива. Размерность…
