profile
Опубликовано 4 года назад по предмету Информатика от Лилия991

определить количество положительных чисел среди заданных N чисел

  1. Ответ
    Ответ дан beresnev98

    Я не знаю через массив или как это писать, поэтому напишу простейший вариант
    program n_pologitelnih;

    uses crt;

    var i,n,k,a:integer;

    begin

    clrscr;

    write('Введи N=>> ');

    readln(n);

    for i:=1 to n do

    begin

    write('Введи число');

    readln(a);

    if a>0 then k:=k+1;

    end;

    write('Положительных чисел из ',n,' введенных - ',k);

    readln;

    end.

Другие вопросы
Lenusik
Математика - 4 недели назад

10 сентября был вторник. в какой день недели выпадает 13 августа в этом году?

321
Математика - 1 месяц назад

На 9 машинах доставили 47700 кг зерна, сколько зерна могут перевезти 12 таких машин?

bkmz
Математика - 1 месяц назад

Масса слона на 24т700кгменьше массыкитакаковамассакита если масса слона 5т 800кг

lesiunia
Физика - 1 месяц назад

Рассчитать среднюю скорость: s = 16 км t = 18 мин. ответ в м/с и в км/ч

Kiril
Физика - 1 месяц назад

Сколько часов и минут в -1,3ч и -2,75ч

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.