Все
Математика
Алгебра
Геометрия
Литература
Русский язык
Истоки
Краеведение
Французский язык
Литературное чтение
Астрономия
Природоведение
Родной край
Немецкий язык
Технология
Физика
Английский язык
Обществознание
Химия
Биология
История
О`zbek tili
Окружающий мир
Естествознание
География
Украинский язык
Информатика
Украинская литература
Казахский язык
Физкультура и спорт
Экономика
Музыка
Право
Белорусский язык
МХК
Кубановедение
ОБЖ
Психология
Кыргыз тили
Другие предметы
Показать все предметы
zhenya-degtyareva
28.01.2022, 13:17
Информатика

Объявлен набор в школьную баскетбольную команду. Известен рост каждого из n-учеников, кто хочет туда попасть.

Составьте алг подсчета кол-ва претендентов, если рост должен быть не менее 170 см (Паскаль, цикл пока)
Знаешь ответ?

Чтобы оставить ответ, или зарегистрируйтесь.

Ответ или решение 1
Заграт

Решение. Введем следующие обозначения: n – количество всех учеников; а - массив из n элементов; i - порядковый номер элементов массива; a[i] - значения элементов массива (рост каждого ученика), которые будем вводить с клавиатуры во время выполнения программы; k - количество учеников, рост которых не менее 170 см. Будем использовать оператор цикла с предусловием while. Тогда программа на языке программирования Pascal ABC может выглядеть так:

program zadacha;

uses crt;

const n=5; var i, k: integer;

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

begin

k:=0;

i:=1;

while i<=n do begin

writeln('vvedite a[i]:');

readln (a[i] );

if a[i]>=170 then begin writeln ('a[i]= ', a[i]); k:=k+1; end;

i:=i+1;

end;

writeln ('kolichestvo pretendentov - ',k);

end.

Количество учеников n можно изменять в самой программе.