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