Фотографии jpg занимают мало места , однако при сжатии теряется качество изображения!
Всего 11 значений.
Подробно см. в приложении
=498 вроде бы я не очень понимаю
Program pas;
var
a:array[1..30] of integer;
i, k: integer;
s: real;
begin
s:=0;
k:=0;
for i:=1 to 30 do
readln(a[i]);
for i:=1 to 30 do
begin
if (not(a[i]mod 2=0)) then
s:=s+a[i];
inc(k);
end;
s:=s/k;
write(s:4:0);
end.