1. Дан одномерный массив из N элементов. Заменить в нем значение макс и мин элемента на сумму всех элементов массива 2. Дан одномерный массив из Н элементов. Найти среднее арифметическое положительных четных элементов данного массива

Question

Сергей Медведев

Информатика

6 июня, 20:23

1. Дан одномерный массив из N элементов. Заменить в нем значение макс и мин элемента на сумму всех элементов массива 2. Дан одномерный массив из Н элементов. Найти среднее арифметическое положительных четных элементов данного массива

+1

Ответы (1)

Знаешь ответ на этот вопрос?

Ельчар · Answer 1

Program massiv1;

const

n=7;

var

i, sum, imax, imin, min, max:integer;

a:array[1 ... n] of integer;

begin

sum:=0;

imax:=1;

imin:=1;

for i:=1 to n do

readln (a[i]);

min:=a[1];

max:=a[1];

for i:=1 to n do

begin

if a[i]
if a[i]>max then imax:=i;

sum:=sum+a[i];

end;

a[imax]:=sum;

a[imin]:=sum;

for i:=1 to n do

writeln (a[i]);

end.

begin

sum:=0;

k:=0;

for i:=1 to n do

readln (a[i]);

for i:=1 to n do

if (a[i]>0) and (a[i]mod 2=0) then

begin

k:=k+1;

sum:=sum+a[i];

end;

writeln (sum div k);

end.