Дан числовой массив целых чисел, состоящих из 10 - вопрос №1013153006 от Пенелопа2189 09.02.2020 09:23

Question

Информатика: Дан числовой массив целых чисел, состоящих из 10 элементов. Найти и вывести на экран количество элементов массива, значения которых кратны 3

Пенелопа2189 · Answer

var

k, i: Integer;

arr:array[1..10] of Integer;

begin

k:=0;

for i := 1 to 10 do begin

arr[i] := random(100);

write (arr[i]:4);

if arr[i] mod 3 = 0 then

k:=k+1;

end;

writeln();

writeln(k);

end.