В массиве из 15 чисел введенных с клавиатуры,отыскать количество частей не

В массиве из 15 чисел введенных с клавиатуры,отыскать количество частей не превосходящих 200

Задать свой вопрос
1 ответ

Ответ:

var a:array [1..15] of integer ;

   i,col:integer;

begin

for i:=1 to  15 do

begin

readln(a[i]);

if a[i]gt;200 then col:=col+1;

end;

writeln('Колчесто: ',col);

end.

Объяснение:

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт