1-тапсырма. Берілген айнымалыларға type() функциясын қолдан- саң, қандай деректер типін аласың?
а -156,78; b 'аtа'; c True; ppp 'stl'; max -25; min False; h - 0; res •k';
100; te "True'; max -25'; mіng “False 12'; p 101.0; tea '1500';​

Const
  nm = 50;{максимальная длина массива}

var
  i, n, max, p: integer;
  a: array[1..nm] of integer;

begin
  Write('Введите количество элементов в массиве: ');
  Readln(n);
  max := -32768;
  Write('Введите элементы массива через пробел ');
  for i := 1 to n do
  begin
    Read(a[i]);
    if max <= a[i] then
    begin
      max := a[i]; p := i
    end
  end;
  Writeln('Последний максимальный элемент ', max, ' имеет номер ', p)
end.

Тестовое решение:

Введите количество элементов в массиве: 10
Введите элементы массива через пробел 4 -5 6 -9 1 0 6 3 -1 5
Последний максимальный элемент 6 имеет номер 7

Это метод на C# 
int Sum()
{
 int[] nums = new int[5]; //Создаю целочисленный массив из 6 элементов для чисел
 int ans; //Целочисленная переменная для ответа
 for(int x = 0; x < 6; x++)//Цикл для ввода значений
 {
  Console.Write("Введите ", x ," число: ");
  nums[x]=(int)Console.ReadLine(); //Ввод числа и запись в массив
 }
 ans=nums[0]+nums[1]+nums[2]+nums[3]+nums[4]+nums[5] /* Суммирование всех элементов массива и запись результата в переменную */
 Console.WriteLine("Сумма чисел: ",ans); // Вывод ответа
 return ans; //Возврат ответа из метода
}