Тема: программирование , связанных с обработкой одномерных массивов. : вычислить минимальный элемент массива, состоящего из 8 элементов, и его номер. преобразовать исходный массив, вычитая из каждого элемента минимальное значение.

Var 
a: array[1..8] of integer; 
i, b, min: integer;
begin 
b := 1; 
for i := 1 to 8 do  begin   
write('Введите ', i, '-ый элемент массива ');   
Readln(a[i]); //Вводим число
if i = 1 then min := a[i] else // Если это первое число то min:= это число   
if min > a[i] then begin //Если min оказывается больше введённого числа
min := a[i]; //то min:= это чило
b := i; //и переменной b := номер этого числа в массиве
end; 
end; 
Write('Первоначальный массив | '); 
for i := 1 to 8 do write(a[i], ' ');  // Выводим этот массив
Writeln('| Индекс минимального элемента ', b, '. Число ', a[b]); // Переменную b и элемент стоящий на месте b  
Write('Преобразованный массив| '); 
for i := 1 to 8 do   begin   
a[i] := a[i] - min;    //Преобразуем массив вычитая из элемента i - min
write(a[i], ' ');  // И сразу выводим преобразованное число
end; 
write('|');
end. //конец

#include <iostream>
using namespace std;

int main() {
   int month, day;
   string a[13] = {"Kozerog","Vodoley","Ryby","Oven","Telec","Bliznecy",
       "Rak","Lev","Deva","Vesy","Skorpion","Strelec","Kozerog"};
   int mes[12] = {31,29,31,30,31,30,31,30,31,31,30,31};
   int bound[12] = {21,19,21,20,21,22,23,23,23,23,23,22};
   cout << "Programma opredeleniya znaka zodiaka" << endl;
   cout << "Vvedite mecyac: ";
   cin >> month;
   cout << "Vvedite den: ";
   cin >> day;
   if ((month<1 || month>12) || (day<1 || day>mes[month-1])) 
      cout<<"invalid input"<<endl;
   else {
         if (day<bound[month-1]) cout<<a[month-1]<<endl;
         else cout<<a[month]<<endl;
   }         
   system("pause");
   return 0;
}

1.
алг
нач цел X
ввод X
если X>0 то 
X:=X+1
все
вывод X 
кон

2.
алг
нач цел X
ввод X
если X>0 то
X:=X+1
иначе
X:=X-2
все
вывод X 
кон

3.
алг
нач цел X
ввод X
 если X>0 то
  X:=X+1
 все
 если X<0 то
  X:=X-2
 все
 если X=0 то
  X:=10
 все
вывод X
кон

4.
алг
нач цел X,Y,Z,N
ввод X,Y,Z
N:=0
если X>0 то
N:=N+1
все
если Y>0 то
N:=N+1
все
если Z>0 то
N:=N+1
все
вывод N
кон

5.
алг
нач цел X,Y,Z,N,K
ввод X,Y,Z
N:=0
K:=0
если X>0 то
N:=N+1
иначе
K:=K+1
все
если Y>0 то
N:=N+1
иначе
K:=K+1
все
если Z>0 то
N:=N+1
иначе
K:=K+1
все
вывод N,K
кон

Самые наиболее простые варианты выбрал думаю в самый раз