Pascal с клавиатуры последовательно вводятся 10 чисел найти ср. арифметическое четных чисел

Ответы

Братюня11 02.07.2020 17:59

Program D1KPxx18;
uses crt;
var
a,s,k,i:integer;
begin
for i:=1 to 10 do
begin
read(a);
if a mod 2=0 then
begin
s:=s+a;
inc(k);
end;
end;
writeln(s/k);
end.

ПОКАЗАТЬ ОТВЕТЫ

Другие вопросы по теме Информатика

лера1231231 28.09.2019 14:10

Примеры ситуаций в которых информация...

Tazedinova 28.09.2019 14:10

Переведите 360000 байт в килобайт и мегабайт с объяснением, я ничего не понимаю в информатике...

АсяСокол 28.09.2019 12:48

Информационный объем текста подготовленного с компьютера равен 3,5 кб сколько символов содержит этот текст...

Vinri 12.05.2020 13:31

ответьте на во письменно)1. Как изменить ориентацию страницы?2. Как изменить размер страницы?3. Где (интерфейс окна) находится строка состояния в программе MS Word?4. Как...

temachbatman 12.05.2020 13:32

.Пользователь работал с каталогом C:\PRINT\PDF\Texts.Сначала он поднялся на один уровень вверх, затем еще на один уровень вверх, потом нажал на кнопку назад. В каком каталоге...

Апельсинка102 29.04.2020 12:22

У семиклассника имеется коллекция из 800 календарей.Сколько бит потребуется ему для присвоения каждому календарю индивидуального кода...

ogannisyan2001 29.04.2020 12:22

Прочитай предложение. Отметь, верно ли высказывание. 1. Боковик — список, перечень сведений, числовых данных, приведенных в определенную систему и разнесенных по графам....

Asy209016 29.04.2020 12:21

Зависимость задана функцией y(a,b), в которой одно из выражений y1 = (a+b)*(a-b), y2 = (a*b) является числителем, а другое- знаменателем. В знаменатель становится то из выражений,...

кпо123 29.04.2020 12:22

с кроссвордом по информатике на тему компьютерные телекоммуникации. Локальные сети...

nikitagiop 29.04.2020 12:22

Как вы представляете использование 3D-редкторов в своей жизни?...

Pascal с клавиатуры последовательно вводятся 10 чисел найти ср. арифметическое четных чисел

Популярные вопросы