Составить программу в паскале по подсчету кол-ва претендентов, которые попадут в школьную баскетбольную команду,если рост игрока должен быть не менее
10-11 класс
|
170 см. Считать число претендентов случайном числом в диапазоне от 150 до 200, число претендентов 50 (программу писать через массив)
var a:array[1..50]of integer;
i,sum:integer;
begin
for i:=1 to 50 do a[i]:=random(51)+150;
for i:=1 to 50 do if a[i]>=170 then sum:=sum+1;
end.
Другие вопросы из категории
Написать программу для нахождения числа нечетных
элементов в массиве из 10 беззнаковых чисел.
Желательно скинуть ссылку на ответ. Заранее спасибо))))
пикселей, при цсловии, что цвет каждого пикселя кодируется 24 битами?
1) DVD
2) CD-ROM
3) RAID
4) DLT
5) Магнитооптическая
Читайте также
начало
ввод A,B,C
A>B
да нет
A>C B>C
да нет да нет
D:=A D:=C D:=B D:=C
вывод D
конец
каждую секунду на d м/c. Через сколько будет полная остановка лыжника.
Надо составить программу в Паскале, где в двумерном массиве вычисляется количество нулей на главной диагонали.
Завтра сдавать надо( В интернете не нашла ничего толкового..