(Безотлагательно)дан массив от 1 до 20 ,заполнить случайными числами до 100

(Безотлагательно)дан массив от 1 до 20 ,заполнить случайными числами до 100 вывести массив и количество чисел больше 50 вывод массива на экран построчно

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

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

   i: integer;

   k: integer;

begin

randomize;

for i:= 1 to 20 do a[i] := random(100) + 1;

k := 0;

for i:= 1 to 20 do begin

 writeln(a[i]);

 if a[i] gt; 50 then inc(k);

end;

writeln();

writeln(k);

end.

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


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

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

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

Войти на сайт