Регистрация
Mark786
19.06.2022 23:59
Информатика
Есть ответ 👍

ответьте на что можете.

169
436
Посмотреть ответы 1

Ответы на вопрос:

bosschornoguz
bosschornoguz
4,4(93 оценок)
{freepascal } program test; var a : array[1..15] of byte; i, n , c: byte; begin randomize; writeln('массив: '); for i: =1 to 15 do begin a[i] : = random(90-30+1)+30; write(a[i], ' '); end; writeln; writeln; writeln('список элементов, делящихся на 2: '); c: =0; for i: =1 to 15 do begin n: =a[i]; if (n mod 2 = 0) then begin write (a[i], ' '); inc(c); end; end; writeln; writeln; writeln('найдено ', c, ' элементов массива, которые делятся на 2'); end.

Популярно: Информатика