Лабораторная работа состояла в следующем: 1. Был создан текстовый документ с некоторым количеством стихотворного текста 2. Создан второй файл путем удаления части текста из первого файла. 3. Оба файла отдельно заархивированы. При следующих полученных данных в лабораторной работе (кто сделал на уроке - может воспользоваться своими данными) Исходный файл - 419 байт Архив исходного файла - 409 байт Редактированный файл - 349 байт Архив редактированного файла - 371 байт Количество символов, удаленных из исходного файла при редактировании - 70 Сделать выводы по расчетам для лабораторной работы

Var
  a: array[1..10] of integer;
  i, max, imax, min, imin: integer;

begin
  Randomize;
  max := 0;min := 101;
  Write('Исходный массив:        ');
  for i := 1 to 10 do
  begin
    a[i] := random(100) + 1;
    Write(a[i], ' ');
  end;
  Writeln();
  For i:= 1 to 10 do begin
   if a[i] > max then
    begin
      max := a[i];
      imax := i;
    end;
    if a[i] < min then
    begin
      min := a[i];
      imin := i;
    end;
  end;
  swap(a[imax], a[imin]);
   Write('Преобразованный массив: ');
   For i:= 1 to 10 do
     Write(a[i], ' ');
   Writeln;
   Write('Я поменял местами ', imax, ' и ', imin, ' элементы');
end.