Вводятся 5 целых чисел вывести количество отрицательных . Помогите плиззз!!!
5-9 класс
|
var
a: array [1..100] of integer;
i, n, k: integer;
begin
n := 5;
for i := 1 to n do
begin
read(a[i]);
if a[i] < 0 then k := k + 1;
end;
write(k);
end.
Другие вопросы из категории
письмами. Письмоплемени Мульти содержало 100 символов, а письмо племени Пульти - 50 символов. Сравните объемы информации, содержащиеся в письмах.
1.Разнообразное,диетическое,выпадающее,вложенное.
2.Утренняя,полевая,электронная,голубиная.
3.Пенсионное,программное,аппаратное,материальное.
длину');
readln(b);
writeln ('пример=', 2*(a+b));
writeln ('площадь=', a*b);
end.
нужно подставить: ширину [15,20] длину [20,30] , a:= random (6)+15
rectangle (x1y1,x2y2)
Читайте также
2. Дан массив целых чисел,найти количество отрицательных элементов массива.
3. Дан массив целых чисел,найти количество чётных чисел в массиве.
В паскаль(цикл)
Последовательно вводится N целых чисел.найти количество отрицательных среди них
элементов массива.
3)задан массив из 9 целых чисел.Вывести на экран чётные элементы
ихся 0 или 1.
Программа получает на вход целые числа от -3000 до 3000.
2)Напишите программу,которая в последовательности целых чисел вычисляет среднее арифметическое среди двухзначных чётных чисел,делящихся на 3.
НУЖНО СЕГОДНЯ! 66 БАЛЛОВ!
2. Массив из 6 отрицательных и положительных целых чисел вводится в области описания констант. Найти сумму положительных элементов массива.
3. Массив из 5 целых чисел вводится с клавиатуры в строку. Найти сумму элементов массива, стоящих на чётных позициях. Вывести исходный массив и полученную сумму.
4. Массив из 40 целых чисел из промежутка [10,90] задается с помощью генератора случайных чисел. Найти сумму элементов массива, кратных n . Вывести исходный массив и полученную сумму.
Помогите кто в чем может.