2)Дан массив из 10 элементов;вывести только те числа которые кратны 3;найти проиизведение чисел которые оканчиваются на 3 и 4

program n1;
uses crt;
var aw:array[1..10] of integer;
 i,w,g:integer;
begin
g:=0;w:=10;
for i:=0+1 to w do begin
aw[i]:=random(100);
write(aw[i]:6);
end;
writeln();
write(Чот);
for i:=0+1 to w do begin
if aw[i] mod 2 = 0 then g:=g+1;
end;
write(Всего чотных чисел ,g);
writeln();
write(Не чот);
g:=0;
for i:=0+1 to w do begin
if aw[i] mod 2 > 0 then g:=g+1;
end;
write(Всего не чотных чисел ,g) ;
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.