Дан двумерный массив а размером 3*3, заполненный с клавиатуры. требуется умножить элементы этого массива на 4, если а(1, 1)> 0, или на 7, если a(1, 1)< 0

Dim a(1 to 3,1 to 3) as integer,i,j as integer randomize for i= 1 to 3 for j= 1 to 3 a(i,j)= rnd•100 print tab; a(i,j); next j print next i for i= 1 to 3 for j = 1 to 3 if a(1,1)> 0 then a(i,j)•4 end if next j next i if a (1,1)< 0 then a(i,j)• 7 end if next j next i print tab; a(i,j); на языке бейсик))

{l-левая половинка числа, r - правая} var count,k,m,r,l: longint; begin   count: =0; writeln('введите k');   readln(k);   for l: =1 to k do   begin       r: =0; m: =l;       while m> 0 do       begin           r: =r*10+m mod 10;           m: =m div 10;       end;       if r=l then count: =count+1;   end;   writeln(count); end.

Var a,k: integer; begin repeat     writeln('введите 4-х значное');     readln(a); until (a> 999)and(a< 10000);     while a> 0 do         begin             if (a mod 10) mod  2=0 then                 k: =k+1;             a: =a div 10;         end; if k=0 then     writeln('четных нет') else      writeln(k); end.