Написать программу в паскале: даны целое n> 0 и последовательность из n вещественных чисел, среди которых есть хотя бы одно отрицательное число. найти величину наибольшего среди отрицательных чисел этой последовательности.

Var     x,max: real;   n,i: integer; begin write('введите число n: '); readln(n); for i: =1 to n do   begin   write('введите число ',i,': ');   readln(x);   if x< 0 then       begin       if max=0 then max: =x;                       // если это первое отр.число       if x> max then max: =x       end   end; writeln('наибольшее среди отрицательных: ',max) end.

#include < iostream> #include < stdlib.h> #include < limits.h> using namespace std; int main() {     int i,n,k,l,y,j,m;     cout < < "сколько чисел? " < < endl;     cin > > n;     y=int_max;     int a[n];     for (i=0; i< n; i++)               cin > > a[i];     for (i=0; i< n; i++){               k=0;               l=0;               for (j=0; j< i; j++)                       k=k+a[j];               for (j=i+1; j< =n; j++)                       l=l+a[j];               if (abs(k-l) < y) {                       y=abs(k-l);                       m=i; }     }     cout < < m; } если я правильно понял - то вот.

Var   mass : array of integer;   len, tempnumber, summ, i : integer; begin   write('введите длину массива: ');   readln(len);     setlength(mass, len);   for i : = 0 to len - 1 do   begin     write('mass[', i, ']  =  ');     readln(mass[i]);   end;   summ : = 0;   for i : = 0 to len - 1 do     if mass[i] mod 3 = 2 then             summ : = summ + mass[i];   writeln('сумма:   ', summ); end.