Составьте программу ввода элементов массива a[1..15] с клавиатуры и вывода на экран элементов со значениями кратными 5

Составьте программу ввода элементов массива a[1..15] с клавиатуры и вывода на экран элементов со значениями кратными 5
Гость
Ответ(ы) на вопрос:
Гость
program kr5; const KR = 5; SIZE = 15; var a: array[1..SIZE] of integer; i: integer; begin for i := 1 to SIZE do begin write('a[',i,']='); readln(a[i]); if a[i] mod KR = 0 then writeln('a[',i,'] кратное ',KR); end; end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы