1.(язык программирования – pascal).составить фрагмент программы открытия и чтения строк из текстового файла. 2.(язык программирования - c++). составить фрагмент программы вычисления максимального значения одномерного массива, используя цикл с постусловием

Получите 1.

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

begin
  var s:=ReadAllText('MyFile.txt');
  Writeln(s)
end.

2.
#include <iostream>
using namespace std;
const unsigned n = 8;

int main()
{
int arr[n] = {5, 9, 3, 6, 15, 0, -1, 99};
int min = 999999;
int i = 0;
do {
if (arr[i] < min) {
min = arr[i];
}
i++;
} while (i < n);
cout << min;
return 0;
}