Дано табличну величину яка містить 15 цілих чисел.знайти середнє арифметичне серед відємних елементів табличної величини.знайти найбільше значення серед елементів табличної величини​

Если вам нужно на паскале, то ловите. Числа в массив выпадают рандомно. Диапазон (-50, 50):
var mass: Array[1..30] of real;
    i, j: integer;
    isE: boolean;
begin
randomize;
isE := true;
for i := 1 to 30 do begin
mass[i] := random (100) - 50;
end;
for i := 1 to 30 do begin
writeln('mass[', i, '] = ', mass[i]);
end;

for i := 1 to 30 do begin 
 for j := 1 to 30 do begin
    if i <> j then begin
      if mass[i] = mass[j] then begin
        writeln('Массив не уникален!');
        isE := false;
      end;
    end;
  end;
end;
if isE = true then writeln('Массив уникален!');

end.

Обьясняется различие в размерах файлов тем, что разные кодировки используют разное кол-во памяти, к примеру обычный *.txt файл хранит просто упорядоченный набор символов, а *.rtf уже хранит такие характеристики как размер шрифта цвет выравнивание и много других параметров. Разные расширения текстовых данных сделаны для хранения максимального кол-ва данных в наименьшем возможном ко-во памяти (txt), и наоборот хранения текста в исходном виде с исходными характеристиками (rtf). Ну а размеры файлов можешь и сам посмотреть сделав эту лабу. Эхх... бывают же ленивые люди(((