Склавиатуры вводятся 7 чисел . найти произведение отрицательных чисел делящихся на 3 . надо

var s,i,k: integer;

begin

s: =1;

for k: =1 to 7 do begin

readln(i);

if (i mod 3=0) and (i< 0) then s: =s*i;

end;

writeln(s);

end.

prorgam zadacha;

const n=7;

 

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

      i,p: integer;

begin

p: =1;

for i: =1 to n do begin

readln(a[i]);

end;

for i: =1 to n do begin

if (a[i]< 0) then begin

if (a[i] mod 3=0) then p: =p*a[i];

end;

end;

writeln(p);

end.

Const   n = 10; type   vector = array[1..n] of integer; function sumdig(a: vector): integer; var   i, m, d, s, max: integer; begin   s : = 0;   for i : = 1 to n do   begin       m : = a[i];       max : = -1;       repeat           d : = (m mod 10);           if max < d then max : = d;           m : = m div 10       until m = 0;       s : = s + max   end;   sumdig : = s end; var   i: integer;   m: vector; begin   writeln('введите ', n, ' чисел: ');   for i : = 1 to n do read(m[i]);   writeln('сумма максимальных цифр всех чисел равна ', sumdig(m)) end. тестовое решение: введите 10 чисел: 613 269 839 10 575 569 812 56 401 616 сумма максимальных цифр всех чисел равна 65

Data 101,98,100,108,97,106,99,100,112,96,107,98 dim a(1 to 12) as integer dim b(1 to 12) as integer, c(1 to 12) as integer dim i as integer, ib as integer, ic as integer cls ib = 0: ic = 0 for i = 1 to 12               read a(i)               select case a(i)               case 100                               ib = ib + 1                               b(ib) = i               case is > 100                               ic = ic + 1                               c(ic) = i               end select next i print "план (100%) в месяцах: "; for i = 1 to ib               print b(i); next i print print "перевыполнение плана в месяцах "; for i = 1 to ic               print c(i); next i end результат выполнения программы: план (100%) в месяцах:   3  8 перевыполнение плана в месяцах  1  4  6  9  11