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

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

Question

Информатика

Стеня

8 мая, 12:11

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

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

+2

Ответы (1)

Знаете ответ на вопрос?

Роза · Answer 1

1) var ar:array of integer;

max, min, s, i, n, maxi, mini:integer;

begin;

randomize;

max:=-1;

min:=101;

readln (n) ;

setlength (ar, n+1) ;

writeln ('Array:') ;

for i:=1 to n do

begin;

ar[i]:=random (100) ;

write (ar[i]:4) ;

if max
begin;

max:=ar[i];

maxi:=i;

end;

if min>ar[i] then

begin;

min:=ar[i];

mini:=i;

end;

s:=s+ar[i];

end;

ar[maxi]:=s;

ar[mini]:=s;

writeln;

writeln ('Final array:') ;

for i:=1 to n do

write (ar[i]:4) ;

end.

2) var ar:array of integer;

k, h, i, s:integer;

f:real;

begin;

randomize;

readln (h) ;

setlength (ar, h+1) ;

writeln ('Array:') ;

for i:=1 to h do

begin;

ar[i]:=random (100) - 50;

write (ar[i]:4) ;

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

begin;

inc (k) ;

s:=s+ar[i];

end;

end;

f:=s/k;

writeln;

writeln ('Result:', f) ;

end.