Ть написати код. мова pascal, програма lazarus. 1. дано масив а[1..5]. знайдіть найменший елемент та кількість додатних елементів масиву. 2. дано 20 дійсних чисел. складіть програму для визначення, скільки з них більші за "сусідів", тобто за попереднє та наступне числа. за правильну відповідь 25 ів

#include <stdio.h>
#include <stdlib.h>
#include <locale.h>
#include <string.h>

//имя файла
#define FileName "file.txt"
//Максимально возможная длина строки (выделение памяти)
#define l_str 255

int main() {
setlocale(LC_ALL, "rus");
FILE *t = fopen(FileName, "r");
if (t == NULL) {
 printf("Файл не найден\n");
}
else {
 //Текущая строка
 char *s = (char*) malloc(sizeof(char) * l_str);
 //Максимальная строка
char *s_max = (char*)malloc(sizeof(char) * l_str);
 //Кол-во строк
 int k_str = 0;
 //Максимальная длина строки
 int l_max = 0;
     while (!feof(t)) {
  fgets(s, l_str, t);
  //Длина текущей строки
  int l = strlen(s);
if (l > l_max)
{ l_max = l;
   strcpy(s_max, s);
  } k_str++;
 }

//Вывод результата:
printf("Строк в файле: %d\n", k_str);
printf("Максимальная строка, длинной %d:\n", l_max-1);
puts(s_max);
}
fclose(t);
printf("\n");
system("pause");
return 0;
}

1)

var a,b:longint;

begin

readln(a,b);

writeln(a+b);

end.

2)

var x:longint;

begin

readln(x);

if(x>0) then writeln(x-6) else if(x=0) then writeln(32*x-7) else if(x<0) then writeln(5*x-2);

end.

3) В третьей условие не совсем понял, если что, дополни, отредактирую код. Какие значения принимают элементы (по какому принципу заполняется массив)? Написал для массива с элементами от 1 до 50.

var a:array[1..50] of integer;

var i:integer;

begin

for i:=1 to 50 do a[i]:=i;

for i:=1 to 50 do writeln(a[i]);

end.