Предмет: Информатика,
автор: OlejaGeograf
Помогите 25 баллов.
Приложения:
![](https://files.topotvet.com/i/648/6481fcfab26c279118004e69397e6d5f.jpg)
Ответы
Автор ответа:
2
const n=8;
var a:array [1..n] of integer;
i,p,s,k:integer ;
begin
write ('Массив: ');
for i:=1 to n do
begin
a[i]:=random(21)-10;
if a[i]>0 then p:=p+1;
write (a[i],' ')
end;
writeln;
writeln('Количество элементов больше 0: ',p);
write ('Массив (заменяем отрицательные элементы на 100): ');
for i:=1 to n do
begin
if a[i]<0 then a[i]:=100;
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:3);
end.
Похожие вопросы
Предмет: Другие предметы,
автор: torlakg
Предмет: Математика,
автор: alinamodunova8
Предмет: Математика,
автор: ioanidi0867
Предмет: Алгебра,
автор: ром68
Предмет: Математика,
автор: 123456789sima