program z1;
var a:array [1..20] of integer;
i,s,k:integer;
begin
randomize;
s:=0;
k:=0;
write('Массив: ');
for i:=1 to 20 do
begin
a[i]:=random(90)+10;
if a[i] mod 2 <> 0 then
begin
s:=s+a[i];
k:=k+1
end;
write(a[i],' ')
end;
writeln;
writeln('Среднее арифметическое нечётных элементов: ',s/k:0:1)
end.
Объяснение:
Задаём значение элемента с random
Проверяем значение элемента на нечётность, если условие истинно, то считаем сумму и количество элементов
Выводим значение элемента на экран
Выводим среднее арифметическое (результат деления суммы на количество) нечётных элементов
1—Б). 2. Код—це зведення законів, система умовних знаків (символів, позначень) для передачі, обробки та зберігання (запам'ятовування) різноманітної інформації.
3. Кодування—це операція заміни коду текстових даних; заміна звичайних текстових даних скороченими умовними позначеннями; переклад будь-якої інформації, вираженої засобами природної мови, в послідовність умовних символів, сигналів за певними правилами, що називають кодом. 4. Декодування—це перетворення закодованого повідомлення у форму, прийнятну для приймача.
