Question

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

Answer 1

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

Answer 2

Получите 1.

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

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