Вмассиве из 20 элементов заполненном целыми числами - вопрос №36097792010100 от konulrzayevaa 23.01.2021 23:59

Question

Информатика: Вмассиве из 20 элементов заполненном целыми числами из интервала [10; 100] найти количество четных чисел оканчивающихся на цифру 4. паскаль.

konulrzayevaa · Answer

Pascal ABC.Net

const
n = 20;
var a : array [1..n] of integer;
i,k : integer;
begin
randomize;
for i := 1 to n do
a[i] := 10 + random (91);

k := 0;
for i := 1 to n do
if (a[i] mod 2 = 0) and (a[i] mod 10 = 4) then
k := k +1;
writeln (k);
end.