Информатика: буду благодарна вам))

вит39

08.03.2023 05:38

Информатика

Есть ответ 👍

буду благодарна вам))

239

497

Посмотреть ответы 2

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

SerAv2000

Информатика

4,8(40 оценок)

В 8 часовне плагадори пока пока

Мейси13

Информатика

4,4(94 оценок)

Program n1; var a: array[1..10] of integer; i,k: integer; begin randomize; write('исходный массив: '); k: =0; for i: =1 to 10 do begin a[i]: =random(15)+1; write(a[i],' '); if a[i] mod 3=0 then k: =k+1; end; writeln; write('кратные 3: ',k); end.