Задать вопрос
18 декабря, 06:59

В одномерном массиве из n чисел вывести на экран положительные элементы и сообщение об их количестве.

+5
Ответы (1)
  1. 18 декабря, 10:44
    0
    Const nz = 30; var a:array[1 ... nz] of integer; i, n, k:integer;

    begin

    write ('Введите число элементов n') ;

    Readln (n) ;

    for i:=1 to n do begin

    a[i]: = random (100) - 50; write (a[i]:4) ; end; writeln;

    for i:=1 to n do begin

    if a[i]> 0 then begin write (a[i]:4) ; k:=k + 1; end; end; writeln;

    write ('количество положительных элементов = ', k) ; end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «В одномерном массиве из n чисел вывести на экран положительные элементы и сообщение об их количестве. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
1. for + random a. вывести случайное количество случайных чисел b. вывести на экран 10 случайных чисел c. вывести на экран 10 случайных чисел, значение которых лежит в отрезке [0,10] d.
Ответы (1)
1) В числовом одномерном массиве все элементы массива, кратные 3, возвести в куб. В новом массиве найти сумму всех членов массива.
Ответы (1)
1) Заполнить массив размером N целыми числами последовательно от 1 до N. Вывести его на экран. Найти сумму элементов массива и вывести ее на экран. 2) Заполнить массив размером N целыми числами последовательно от N до 1. Вывести его на экран.
Ответы (1)
1. В одномерном массиве подсчитать сумму тех элементов массива, которые кратны 5, но не делятся на 3. 2. В одномерном массиве подсчитать произведение тех элементов массива, которые стоя на индексах, кратных 3, а сами элементы четные.
Ответы (2)
1. в одномерном массиве найти значение и номер минимального элемента. 2. в одномерном массиве заменить все элементы кратные 3 на 0.
Ответы (1)