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

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

Question

Информатика

Мавродий

24 июня, 18:26

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

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

+4

Ответы (1)

Знаете ответ?

Римлянин · Answer 1

1.

var

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

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

begin

read (n) ;

for i:=1 to n do

read (a[i]) ;

min:=a[1]; imin:=1;

if a[i]
min:=a[i]; imin:=i; end;

max:=a[1]; imax:=1;

if a[i]>max then begin

max:=a[i]; imax:=i; end;

a[imax]:=2; a[imin]:=2;

end.

2.

var

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

i, n, s, k: integer;

begin

read (n) ; s:=0; k:=0;

for i:=1 to n do

read (a[i]) ;

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

s:=s+a[i]; k:=k+1; end;

writeln ((s/k) : 17:2) ;

end.