{* Задача 341 *}

Unit ZADACH341;
Interface
Implementation
Begin
 writeln('Задана последовательность значений элементов некоторого массива до и после преобразования по некоторому правилу. Определите алгоритм преобразования и напишите программу, которая: 1) формирует массив из заданного количества случайных целых чисел в заданном диапазоне и выводит элементы массива на экран; 2) по определенному вами алгоритму преобразовывает этот массив и выводит на экран элементы преобразованного массива. 3) производит заданные вычисления и выводит результат на экран. ');
End.

Program zadach341;

Uses zadach341.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Const {* Константы *}
  kol_el = 20;
Type {* Типы переменных *}
  mas = Array [1..kol_el] Of integer;
Var {* Необходимые переменные *}
  t : mas;
  f : text;
Var {* Необходимые переменные *}
  a : mas);
Var {* Объявление переменных *}
  i               : integer;
  del             : real;
  Begin
For i := 1 To kol_el Do; {* Переменная i увеличивается с 1 до kol_el *}
Function sum (b : mas);
Var {* Объявление переменных *}
  i          : integer;
  s          : integer;
  Begin
  s := 0;
For i := 1 To kol_el Do; {* Цикл для i => [1 .. kol_el] *}
  sum := s;
Var {* Объявление переменных *}
  i : integer;
  Begin
  assign (f, 'lab3.txt'); {* Привязка переменной f к файлу 'lab3.txt' *}
  rewrite (f); {* Открытие файла для записи *}
  clrscr; {* Очищаем экран *}
  randomize;
  write (' Do
  preobrazovania : ', #13, #10, #10);
  write (f, ' Do
  preobrazovania : ', #13, #10, #10);
For i := 1 To kol_el Do {* Цикл для i => [1 .. kol_el] *}
  Begin
t[i] := random(51) - 25;
write (t[i] : 4);
write (f, t[i] : 4);
End;
preobr (t);
write (#13, #10, #10);
write (f, #13, #10, #10);
write ('Posle preobrazovania:', #13, #10, #10);
write (f, 'Posle preobrazovania:', #13, #10, #10);
For i := 1 To kol_el Do {* Цикл для i => [1 .. kol_el] *}
  Begin
write (t[i] : 4);
write (f, t[i] : 4);
End;
write (#13, #10, #10, 'Summa elementov = ', sum(t));
write (f, #13, #10, #10, 'Summa elementov = ', sum(t));
readln; {* Ждем нажатия Enter *}
close (f); {* Закрыть файл f *}
End....