Составить массив из диапазона отрицательных и положительных чисел,найти в нем количество отрицательных чисел.
5-9 класс
|
program prog;
const m=30;
var a:array [1..m] of integer;
i,counter:integer;
begin
counter:=0;
for i:=1 to m do begin
a[i]:=-100+random(200);
if a[i]<0 then inc(counter);
end;
writeln(counter);
end.
Другие вопросы из категории
9x³-18x²-x+2=0;
y⁴-y³-16y²+16y=0;
p³-p²=p-1;
x⁴-x²=3x³-3x.
пожалуйста помогите
Читайте также
2. Массив из 6 отрицательных и положительных целых чисел вводится в области описания констант. Найти сумму положительных элементов массива.
3. Массив из 5 целых чисел вводится с клавиатуры в строку. Найти сумму элементов массива, стоящих на чётных позициях. Вывести исходный массив и полученную сумму.
4. Массив из 40 целых чисел из промежутка [10,90] задается с помощью генератора случайных чисел. Найти сумму элементов массива, кратных n . Вывести исходный массив и полученную сумму.
Помогите кто в чем может.
1.Дано линейный масив целых чисел.Найти в нем количество элементов, все цифры которых непарные
2.дано линейный масив типа real. Найти в нем самый маленький положительный элемент
элементов массива.
3)задан массив из 9 целых чисел.Вывести на экран чётные элементы
Найти и напечатать те из них, которые при делении на 7 дают остаток 1, 2 или 5.
3)Дано целое число а и натуральное (целое неотрицательное) число n. Вычислить а в степени n, используя в программе лишь операцию умножения.
4)Введите последовательность из n целых чисел. Найти наибольшее из всех отрицательных чисел. Вывести его значение и порядковый номер.
5)Вычислите: 99-97+95-93+91-89+....+7-5+3-1.
6)Доказать (путем перебора возможных значений), что для любых величин А, В, С типа Boolean следующая пара логических выражений имеет одинаковые значения (эквивалентны): A OR (B AND C) и (A OR B) AND (A OR C).