Дан массив из 10 целых чисел в диапазоне [-10000,10000]. Определите количество чисел, оканчивающихся на 2. Числа вводятся с клавиатуры!
Написать в Паскале)
Написать в Паскале)
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var a: array [1..10] of integer;
k,i: integer;
begin
k:=0;
for i:=1 to 10 do
readln(a[i]);
for i:=1 to 10 do if a[i] mod 10 = 2 then k:=k+1;
writeln(k);
end.