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

дк максимум же надо найти :))

Ну увлекся человек...))

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;}

Получите 1.// PascalABC.NET 3.3, сборка 1634 от 14.02.2018// Внимание! Если программа не работает, обновите версию!begin  var s:=ReadAllText('MyFile.txt');  Writeln(s)end.