Напишите программу, которая подсчитывает число претендентов в состав баскетбольной команды и выводит номера подходящих кандидатур

@vitalya199529 · Регистрация: 12.02.2013

Author24 — интернет-сервис помощи студентам

Дан целочисленный массив из 30 элементов, которые могут принимать значения от 150 до 200 – рост учащихся выпускного класса. В баскетбольную команду берут тех, чей рост не менее 180 см. Напишите программу, которая подсчитывает число претендентов в состав баскетбольной команды и выводит номера подходящих кандидатур.

Помогите пожалуйста 3 день мучаюсь ни чего не выходит!!!

Добавлено через 9 часов 38 минут
уже не надо я сам догадался

Pascal

const n=30;
var
a:array[0..30] of integer;
b:array[0..30] of integer;
i,min:integer;
begin
min:=200;
writeln('Введите ',n,' значений от 150 до 200 '); //рост учащихся выпускного класса
for i:=0 to n do readln(a[i]);
for i:=0 to n do begin
if a[i] >=180 then b[i]:=a[i];
if b[i] >=180 then writeln (b[i]);
end;
end.

может кому поможет

	13.02.2013, 05:00

Опции темы