Нужно переделать из паскаля в С++ var f: text; s: string; i, lect, pract, lab: byte; begin assign(f,'lessons.txt'); reset(f); lect := 0; pract := 0; lab := 0; while not Eof(f) do begin readln(f,s); i := pos('лекц.',s); if i <> 0 then lect := lect + 1 else begin i := pos('практ.',s); if i <> 0 then pract := pract + 1 else begin i := pos('лаб.',s); if i <> 0 then lab := lab + 1 end; end; end; close(f); writeln('Лекций: ', lect); writeln('Практических: ', pract); writeln('Лабораторных: ', lab); end.

Program pr1;

uses crt;

var  

  n:byte; // Размерность массива

  i:byte; // Счетчик массива

  a:array[1..30] of real; // Массива чисел

  P:real; // Произведение чисел

Begin

  clrscr;

  write('Введите размерность массива: ');

  readln(n);

  writeln('Введите ',n,' элементов');

// Блок ввода

  for i:=1 to n do

     readln(a[i]);

// Блок вывода

  writeln('Исходный массив');

  for i:=1 to n do

     write(a[i]:6:1,' ');

     writeln;

     readln;

// Блок инициализации

  P:=1;

  for i:=1 to n do

     if(a[i]>P) then

        P:=P*a[i];    

  readln;

  writeln('P= ',P);

End.

Возможно я не так понял задание, но вот

С++

int iMin, iNum, iAmountOfNumbers;

//

std::cout << "Enter the amount of numbers : " << std::endl;

std::cin >> iAmountOfNumbers;

std::cout << "Enter the first number" << std::endl;

std::cin >> iMin;

// Первый член последовательности устанавливается как минимальное значение  

// Вводится число и сразу же сравнивается с минимальным

// Если вводимое число меньше минимального, то оно становится минимальным

do

{

 std::cout << "Enter the next number" << std::endl;

 std::cin >> iNum;

 if (iNum < iMin) iMin = iNum;

 iAmountOfNumbers--;

} while (iAmountOfNumbers > 1);

std::cout << "Min number : " << iMin << std::endl;