Ответы на вопрос:
program massiv;
uses crt;
const n=30;
var i,s: integer;
k: real;
a: array [1..n] of integer;
begin поёдёт? да
for i: =1 to n do
begin
read a[i];
end;
for i: =1 to n do
begin
if a[i] mod 10 =5
then
s: =s+a[i];
k: =k+1;
end;
write(s/k);
readkey;
end.
Популярно: Информатика
-
afspafa04.12.2022 09:31
-
belovavaleriya27.03.2023 01:59
-
Никанраа10.03.2021 21:53
-
Kakation02.05.2021 05:00
-
annachebotarevа28.07.2020 01:00
-
mrdrozdovoy22818.02.2022 08:42
-
iekatierina108.03.2020 12:54
-
TemChik200703.08.2020 04:48
-
smarika8314.06.2022 08:55
-
Dasha590104.06.2021 17:43