Меню сайта

Задача №19
В массиве из 30 элементов задан вес спортсменок одной команды (в килограммах с округлением до десятых). Найти количество спортсменок, чей вес превышает 50 кг, но не более 57 кг. Если таких спортсменок нет – выдать сообщение.
program mas_19-
uses crt-
var a: array [1..30] of real-
i,k: integer-
begin
randomize-
for i:=1 to 30 do
— — — — — — — — begin
— — — — — — — — a[i]:= random(70)+10—
— — — — — — — — write(a[i]:5:1,’ ‘)-
— — — — — — — — end-
k:=0-
for i:=1 to 30 do
— — — — — — — -if (a[i]&gt-50) and (a[i]&lt-57) then k:=k+1-
if k=0 then writeln(‘Таковых нет’)
else writeln(k,’Спортсменок’)-
readln-
end.
Категория: Массивы | Дата: 21.12.12

Меню раздела
Блок