1.Дан одномерный массив из N элементов. Заменить в нем значение макс и мин элемента на сумму всех элементов массива 2. Дан одномерный массив из Н элементов. Найти среднее арифметическое положительных четных элементов данного массива
Answers & Comments
xoxofrnk
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 then begin 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.
Answers & Comments
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 then begin
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.