5. Дан массивА (3*4). Найти количество отрицательных элементов…

№5uses crt; var a, b, c, i, j, d, n: integer; s, k: array [1… 100] of integer; begin clrscr; for i: =1 to 3 do for j: =1 to 4 do begin writeln ('Введите s[', i, ',', j, '] элемент'); read (s[j]); if s[j]<0 then inc (k[i]); end; for i: =1 to 3 do writeln ('В ', i, ' строке ', k[i],' отрицательных элементов'); end.№7uses crt; var a, b, c, i, j, d, n: integer; s, k, p: array [1… 100,1… 100] of integer; begin clrscr; for i: =1 to 3 do for j: =1 to 3 do begin writeln ('Введите s[', i, ',', j, '] элемент'); read (s[i,j]); end; for i: =1 to 3 do for j: =1 to 3 do begin writeln ('Введите k[', i, ',', j, '] элемент'); read (k[i,j]); end; for i: =1 to 3 do begin for j: =1 to 3 do begin p[i,j]: =k[i,j]*s[i,j]; write (p[i,j],') end; writeln; end; end.№9uses crt; var a, b, c, i, j, d, n: integer; s, k: array [1… 100] of integer; begin a: =-63999; clrscr; for i: =1 to 3 do for j: =1 to 4 do begin a: =-63999; writeln (' âåäèòå s[', i, ',', j, '] ýëåìåíò'); read (s[j]); if a <= s[j] then begin a: =s[j]; k[i]: =j; end; end; for i: =1 to 3 do writeln ('В ', i, ' строке ', k[i],' элемент наибольший.'); end.P.S. Надеюсь на благодарность и лучший ответ.