Вводятся 30 чисел, вывести на экран числа больше 20 (вывод a[i])

Question

46

в избранное ссылка

Знаете ответ?

dimarek · Accepted Answer

51

dimarek

06 марта 2023

Var a: array[1… 30]of integer; i: byte; beginfor i: =1 to 30 doa[i]: =random (50); for i: =1 to 30 do beginif a[i]>20 thenwriteln (a[i]); end; end.

комментировать

в избранное ссылка отблагодарить