Простите-си++ и си только знаю.
Var rost :array[1..100] of integer;
n, i, k: integer;
begin
writeln('Введите общее количество участников');
readln(n);
for i:=1 to n do
read(rost[i]);
for i:=1 to n do
if (rost[i] >=180) then Inc(k);
writeln(k);
<span>end.
Пример входных данных
3
179 180 194<span>
Выходные данные
2</span></span>
1 байт-8 бит
1 Кбайт-1024 байт
1 Мбайт-1024 Кбайт
1 Гбайт-1024 Мбайт
1 Тбайт-1024 Гбайт
1 буква-1 байт
Например Аппарат
У аппарата есть 7 букв
Теперь 7 × 8=56
А вывод очевиден и без выполнения этих бессмысленных операций: ты число, которое задумал, убираешь (вычитаешь) на 5-м шаге.
Ввода (клавиатура)
вывода (принтер. монитор)
хранения (databank)