Дан массив целых чисел от 0 до 20, заполненный случайными - вопрос №02001005500915 от mariacold 07.12.2022 08:51

Question

Информатика: Дан массив целых чисел от 0 до 20, заполненный случайными числами в интервале [0,100]. определить количество элементов массива кратных 3.

mariacold · Answer

Var x:array[1..100]; K,i:integer; Begin k:=0; For i:=1 to 100 do begin Read(x[i]); If (z[i] mod 3=0) then k:=k+1; end; Write(k); end....