21 ноября, 15:55

Прошу, помогите написать программу!

(Тема - Операции над массивами.)

Написать программу, которая в одномерном массиве, заданным вводом данных с клавиатуры находит число положительных чисел в массиве.

+1
Ответы (1)
  1. 21 ноября, 17:18
    0
    Const n=10;

    var a:array [1 ... n] of integer;

    k, i:integer;

    begin

    writeln ('vvedite massiv = ');

    for i : = 1 to n do

    readln (a[i]);

    k:=0;

    for i : = 1 to n do

    if a[i]>0 then inc (k);

    writeln ('k=', k);

    readln;

    end.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Прошу, помогите написать программу! (Тема - Операции над массивами.) Написать программу, которая в одномерном массиве, заданным вводом ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы