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

LordКавайность LordКавайность    1   20.05.2020 17:50    2

Ответы
nikitarm756 nikitarm756  15.10.2020 03:09

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика