Задача 2а. Який буде внесок через 10 років, якщо початкова сума виражається чотиризначним числом, утвореним з вашого номеру у журналі дописуванням двох чи трьох нулів?

Как я понял тебя, должно быть так

(c++, Mingw)

#include <iostream>

int main()

{

   int iter(0); //Сколько циклов

   int kolvoch, kolvominutes;       //сколько вздремнуть

   int hours, minutes;      //нач. время

   std::cin >> hours >> minutes >> kolvoch >> kolvominutes;

   for (int i = 0; i < iter; i++, minutes += kolvominutes, hours += kolvoch)

   {

       if (minutes > 60)   {hours += minutes / 60; minutes = minutes % 60;}

       if (hours >= 24)    {hours = hours % 24;}

   }

   std::cout << "После " << iter << " циклов, время изменилось на " << hours << ":" << minutes;

   return 0;

}

Объяснение:

1) program abc;

var x,y:real;

begin

readln(x,y);

if (x>0) then begin // проверка по x

 if (y>0) then  

  writeln('1th'); // попадает в первую

 if (y<0) then

   writeln('4th'); // проверка в четвёртую

end

else begin

 if (y>0) then  

  writeln('2nd'); // попадает во вторую

 if (y<0) then

  writeln('3th'); // попадает в третью

end;

end.

2)

program abc;

var A:array [1..4] of real; // ввод массива из четырёх чисел

i,max,min:shortint; // i - цикл, max - индекс максимального значения, min - минимального

s:real; // сумма

begin

readln(a[1]); // ввод первого значения

max:=1;

min:=1; // считаем что первое значение и минимум и максимум

for i:=2 to 4 do

 begin

  readln(A[i]); // ввод массива

  if A[i]>a[max] then // Если данный элемент больше максимального

   max:=i; // То записываем индекс этого элемента

 if A[i]<A[min] then // аналогично с минимумом

 min:=i;

 end;

s:=A[max]+a[min]; // суммируем и выводим

write(s);

 end.