Задать вопрос
3 октября, 10:29

С клавиатуры вводится 10 чисел, определить кол-во чисел попадающих в интервал от - 15 до 30. в турбо паскале

+1
Ответы (1)
  1. 3 октября, 10:44
    0
    Var a:array [1 ... 10] of integer;

    i, k:integer;

    begin

    k:=0;

    for i:=1 to 10 do

    begin

    write (i,'-oe chislo: ') ;

    readln (a[i]) ;

    if (a[i]>-15) and (a[i]<30) then inc (k) ;

    end;

    writeln ('Kol-vo: ', k) ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «С клавиатуры вводится 10 чисел, определить кол-во чисел попадающих в интервал от - 15 до 30. в турбо паскале ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы