1 задание. Выполнение простейших расчетов и вывод результата на экран напишите программу для паскаля. Заранее

#include <iostream>
using namespace std;
     
int main() {
  int n;
  cin >> n;
  int a[n];
  cin >> a[0];
  int s(0), min=a[0];
  for (int i(1); i<n; i++) {
    cin >> a[i];
    if (a[i]<min) { s=0; min=a[i]; }
    else s+=a[i];
  }
  cout << "s = " << s << "\n";
  return 0;
}

------------------------------------

#include <iostream>
using namespace std;
    
int main() {
  double a[5];
  double s(0.0);
  for (int i(0); i<5; i++) {
    cin >> a[i];
    s+=a[i];
    cout << "avg = " << s/(i+1) << "\n";
  }
  return 0;
}

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Количество строк (столбцов) в массиве:');
  Writeln('*** Исходный массив ***');
  var a:=MatrRandom(n,n,-50,50);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var s:=a.ElementsByRow;
  Writeln('Сумма элементов массива ',s.Sum);
  Writeln('Произведение отрицательных элементов ',
      s.Where(t->t<0).Aggregate(BigInteger(1),(p,q)->p*q));
  Writeln('Количество положительных элементов ',
      s.Where(t->t>0).Count)
end.