k:=0;
m:=0;
for i:=1 to 40 do begin
if (a[i]>99) and (a[i]<1000) and (a[i]mod2<>0) then
k:=k+1;
m:=m+a[i];
end;
writeln(m/k);
end.
<span>РАЗАРХИВИРОВАНИЕ -</span>Процедура, обратная архивированию. Восстановление сжатых файлов из архивного файла.
<span>АРХИВИРОВАНИЕ - Сжатие одного или более файлов с целью экономии памяти и размещение сжатых данных в одном архивном файле. А. выполняется специальной программой - архиватором</span>
Мама - 4 б
школа - 5 б
байт - 4 б
информатика - 11 б
1 сентября - 11 б
Жадаю поспеху - 14 б
Var n, i, min, max, min_i, max_i, tmp: integer; a:array[1..100] of integer;
begin
readln(n);
for i := 1 to n do
read(a[i]);
min := a[1];
max := a[1];
min_i := 1; {номер минимального}
max_i := 1;
for i := 2 to n do
begin
if min > a[i] then
begin
min := a[i];
min_i := i;
end;
if max < a[i] then
begin
max := a[i];
max_i := i;
end;
end;
tmp := a[max_i];
a[max_i] := a[min_i];
a[min_i] := tmp;
for i := 1 to n do
write(a[i], ' ');
end.