1.Дан двумерный массив. Определить минимальное значение среди элементов второй строки массива. 2. Дан массив. Найти сумму элементов массива, больших числа a. 3. Цикл for. Найти произведение всех целых чисел от a до b (значения a и b вводятся с клавиатуры; b>a 4. Рассчитать значение у при заданном значении х: y=sin(x) при x>0 или y=cos(x) в противном случае.

program Hello;

var a,k:string;

var i:integer;

begin

 read(a);

 for i:=0 to length(a) do begin

   k := k+a[length(a)-i];    

 end;

 write(k);

end.

Объяснение:

заводим две переменных типа string(строковой тип данных)

а и к

и еще не забудем счетчик для цикла i

строковой тип данных это массив из символов,то есть мы можем извлекать из него элементы с цикла

объявим цикл for от 0 до длины нашей строки,которую возвращает функция length() и с конкатенации(сложения строк,например: 'a'+'b'= 'ab) добавляем к новой строке "к"  элемент length()-i строки а.