Дан массив целых чисел. выяснить: 1) является ли s-й элемент массива положительным числом; 2) является ли k-й элемент массива чётным числом; 3) какой элемент массива больше k-й или s-й. паскаль для лазаруса.

На 1 пункт: program mueta; uses crt; const n=(любому числу, например 3); var k: array[1..n]of integer; s: array[1..n]of integer; begin clrscr; for i: =1 to n do begin writeln('введите эл-ты массива s[i]='); readln(s[i]); end; for i: =1 to n do begin if s[i]> 0 then  writeln('s[i] положительное число', s[i]); end. 2)на второй тоже самое только нужно заменить массив на(k)  условие нужно поменять на s[i]mod 2=0                                   

Так как написано, программа будет работать бесконечно.   задавайте в программе точность вычислений, например, 6 знаков после запятой,   eps = 1.0e-6 var eps,s,delta: real;       i,sg: integer; begin   write('точность вычислений eps:   ');     readln(eps);   s: =0;   sg: =1;   i: =1;   repeat     delta: =1/(2*i-1);     s: =s+(1/(2*i-1))*sg;     sg: =-sg;     i: =i+1;   until delta< eps;   writeln('сумма:   ',s);   writeln('точное значение:   ',pi/4); end.

Сделал на с++, может кто-нибудь переведет или вы поймёте логику программы. в целом вводим число и с простого деления и остатка от деления, выражаем отдельные числа. находим сумму и проверяем условия. #include < iostream> using namespace std; int main(void) {   setlocale(lc_all, "russian");     int num, a1, a2, a3, a4, sum;     cout < < "введите четырехзначное  число: " ;     cin > > num;     a1 = num / 1000;   //делим введенное число на цело,   a2 = (num / 100)%10;   // а потом используем остаток от деления   a3= (num / 10) % 10;   a4 = num % 10;   sum = a1 + a2 + a3 + a4;       if (sum%2==0)       {               cout < < "сумма четная" < < endl ;               if (a1 + a2 == a3 + a4)                         cout < < "да, условие выполняется" < < endl;               else                         cout < < "нет, условие не выполняется" < < endl;       }   else           cout < < "сумма нечётная." < < endl;     system("pause");     return 0; }