Дан массив из n целых чисел.Выяснить,какое число встречается в массиве чаще-положительное или отрицательное.
10-11 класс
|
VAR a:array[1..1000] of integer;
n,i,kp,ko:integer;
begin
randomize;
write('Введите количество элементов массива n='); readln(n);
for i:=1 to n do begin a[i]:=random (100)-50; write(a[i],' '); end;
ko:=0; kp:=0;
for i:=1 to n do
if a[i]> 0 then kp:=kp+1 else if a[i]<0 then ko:=ko+1;
if ko>kp then writeln('Чаще встречаются отрицательные числа')
else if ko<kp then writeln('Чаще встречаются положительные числа') else writeln('Количество положительных равно количеству положительных');
end.
Другие вопросы из категории
Написать программу натурального числа n в квадрате , используя следующую закономерность n в квадрате =1+3+5+7.....+(2n-1)
вывести список книг, изданных после 2003 года.
2)составить программу , организующую массив записей о пяти студентах и их оценках по трем предметам. провести сортировку и вывести список отличников.
остаток от деления которых на 5 больше двух
Поажаалуйста помогите.
Дано натуральное число. Определить какое из цифр встречается в этом числе чаще 0 или 9
Читайте также
среди 10 элементов вещественного массива
3)заполнить массив из n целых чисел.выяснить какое число встречается раньше-положительное или отрицательное.
4)в целочисленном массиве есть отрицательные элементы.вывести номера этих элементов
массива
3)заполнить массив из n целых чисел.выяснить какое число встречается раньше-положительное или отрицательное.
4)в целочисленном массиве есть отрицательные элементы.вывести номера этих элементов
двузначных элементов массива, которые не оканчиваются на 3. №2. Дан массив из 100 элементов. Каждый элемент может принимать целочисленные значения от 1 до 500. Напишите программу, которая позволит найти и вывести минимальное значение среди элементов массива, которые делят максимальное значение элементов массива без остатка.
Один элемент массива соответствует количеству очков, набранных одним участником соревнований, и имеет значение от 0 до 30 включительно. Необходимо разработать программу, которая по данным массива вычисляет максимальное количество очков среди участников соревнований, и количество участников набравшее зачётное количество очков. Зачётное количество очков 18. Гарантируется, что хотя бы один участник соревнований набрал зачётное количество очков.