1. Информатика
  2. Запишите на языке паскаль программу

Запишите на языке паскаль программу решения обьяален набор в школьную бесбольную каманду известен рост каждого из n учястников желаюшего попасть в эту команду. подсчитайте количество претендентов имеюших шанс попасть в команду, если рост игрока команды должен быть не менее 170 см. считайте рост претендента в команду случяйным числом из диапазона от 150 до 200 см, а число претендентов n=50

Geimer200 Geimer200    3   10.09.2019 00:00    1

Ответы
АшадЕфремова АшадЕфремова  09.09.2020 23:15
Const n=50;
var a:array[1..n] of integer;
k,i:integer;
begin
Randomize;
for i:=1 to n do begin
 a[i]:=random(51)+150;
 write(a[i],' ');
 end;
writeln;
k:=0;
for i:=1 to n do
 if a[i]>=170 then k:=k+1;
writeln('k = ',k);
end.

Пример (для n=10):
157 183 166 153 200 151 200 180 161 175
k = 5
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Варька111111111 Варька111111111  21.11.2020 13:17
Написать код на c++ используя cin cout и цикл for Условие Дано 3 целых неотрицательных числа: N, x, y. Выведите все числа, начиная с x, которые не превосходят N, с шагом y. входные...
Q666Princess666Q Q666Princess666Q  21.11.2020 13:16
Информациопные модоли Необходимо:​...
fkghdk fkghdk  21.11.2020 13:16
1. Створіть програму для обчислення довжини кола та площі круга за введеним радіусом. (Використати функцію pi модуля math) 2. Створіть програму для обчислення площі круга за введеним...
Piragovicch Piragovicch  21.11.2020 13:16
С ИНФОРМАТИКОЙ №1 А В С 1 1 2 3 2 1 3 1 3 2 2 2 4 3 3 3 5 3 2 3 Сколько записей удовлетворяет условию А=1 ИЛИ В=2 И С=3?...
batya757757 batya757757  21.11.2020 13:16
Упрости и запиши правильный ответ. K&B∨K&B¯...
ArinaBelman18 ArinaBelman18  21.11.2020 13:15
вопрос - введиде маску для выбора всех файлов имя которых начинается с буквы z, а расширение заканчивается на букву а​...
mashauuu6 mashauuu6  21.11.2020 13:11
Сделать программу в Pascal. Сформувати масив на 40 елементів з додатними і від ємними числами і порахувати кількість додатних, кількість від ємних і кількість нульових елементів...
Makspoerty Makspoerty  02.06.2019 14:13
Найти максимальный и минимальный элемент массива, поменять местами строки в которых находится максимальный и минимальный элементы.если максимальный и минимальный элементы находятся...
natchiy03 natchiy03  02.06.2019 14:26
Напишите программу, которая запрашивает у пользователя имена его друзей до тех пор, пока он не введет единицу. затем выведите на экран список со всеми именами, кроме первого....
Mom34 Mom34  02.06.2019 14:40
Выбрать программу для плагинов для кс го...

Популярные вопросы