1. Задание Паскаль a. Создать целыми числами массив из 10 элементов;
b. Выделить все элементы массива случайные значения в диапазоне от -10 до 10;
c. Вывести на экран все положительные значения;
d. Вывести на экран первый отрицательный и первый положительный стоимость;
e. Поменять местами наименьший и наибольший значения.

1. Код на Python3 (!)
2. Файл в одной папке со скриптом

--- КОД ПРОГРАММЫ НИЖЕ ---

# -*- coding: utf-8 -*-
import sys, os

file = open(os.path.join(sys.argv[0], "diag3.txt"))
a = {}
for line in file.readlines():
pair = line.split()
a[float(pair[0])] = float(pair[1])
file.close()
keys = list(a.keys())
vals = list(a.values())
avg_p = sum(vals) / float(len(vals))
max_p = max(vals)
min_p = min(vals)
deltas = [vals[m]-vals[m-1] for m in range(1, len(vals))]
max_d = max(deltas)
min_d = min(deltas)
min_d_i = deltas.index(min_d)
near_d_0 = (keys[min_d_i-1], keys[min_d_i])
print("Среднее давление: {}".format(avg_p))
print("Максимальное давление: {}".format(max_p))
print("Минимальное давление: {}".format(min_p))
print("Наибольшая скорость нарастания давления: {}".format(max_d))
print("Угол поворота при зафиксированной скорости нарастания: {} <= a <= {}".format(near_d_0[0], near_d_0[1]))

1)
var f:text; a:array[1..7] of real; i,k,c,x:integer; s:string;
begin
 for i:=1 to 7 do
   begin
    readln(x);
    a[i]:=x;
   end;
 assign(f,'file.txt');
 rewrite(f);
 for i:=1 to 7 do
   begin
    str(a[i],s);
    writeln(f,s);
   end;
 close(f);
 reset(f);
 k:=0;
 while not eof(f) do
   begin
    readln(f,s);
    val(s,x,c);
    if x<0 then k:=k+1;
   end;
 close(f);
 if k<>0 then writeln('В массиве ',k,' отрицательных элемента(ов)');
  else writeln('В массиве нет отрицательных элементов');
 erase(f);
end.

2)
Var a,b,c,d:integer;

Function max(a,b:integer):integer;
begin
 if a>b then max:=a
  else max:=b;
end;

Begin
 readln(a,b,c,d);
 a:=(max(a,b)); 
 b:=(max(c,d));
 writeln('max=',max(a,b));
End.