•  Даю 99 баллов!!Известны сведения о росте юношей-старшеклассников.Определить количество кандидатов в сборную школу по баскетболу,если туда набирают участников не менее 170см.
    Помогите с информатикой!Даю 99 баллов!Язык Паскаль.

Ответы 3

  • Спасибо большое!
  • Пожалуйста.
  • const n=20; var a:array[1..n] of integer;i,k:integer; beginRandomize;writeln('Массив A:');for i:=1 to n do begin a[i]:=random(51)+140; write(a[i]:4); end;writeln;k:=0;for i:=1 to n do if a[i]>=170 then k:=k+1;writeln('k = ',k);end.Пример:Массив A:156 147 168 157 178 188 141 150 148 185 188 154 153 188 159 177 162 177 174 142k = 8
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years