В текстовом режиме экран разбивается на 30 строк по 60 символов в строке. Определите объем в Кбайт текстовой информации, занимающей внсь экран монитора если в кодировке КОИ-8 один символ весит 1 байт?​

Язык не указан, поэтому запишу на универсальном языке. Потом просто подставите в свой язык.

x = длинна массива A1
y = длинна массива A2
z = длинна массива A3

цикл i от 0 до x:
    если i<=0:
        B1[0] = B1[0] + 1
    иначе:
        B1[1] = B1[1] + 1

цикл i от 0 до y:
    если i<=0:
        B2[0] = B2[0] + 1
    иначе:
        B2[1] = B2[1] + 1

цикл i от 0 до z:
    если i<=0:
        B3[0] = B3[0] + 1
    иначе:
        B3[1] = B3[1] + 1

Вот и все.
Можно было объединить эти 3 цикла в один двойной цикл, однако это работает не во всех языках.

Пояснение: заполни массив 10-ю элементами и он выдаст то, что тебе нужно
var arr: array [1..10] of integer;
var i,min,max:integer;
begin
for i:=1 to 10 do begin
writeln('Введите ',i,' элемент');
readln(arr[i]);
end;
min:=0;
max:=0;
for i:=1 to 10 do begin
if (arr[i]<0) then begin
if (arr[i]<min) then begin
min:=arr[i];
end;
end
else
if (arr[i]>0) then begin 
if (arr[i]>max) then begin 
max:= arr[i];
end;
end;
end;
writeln('Минимальный элемент среди отрицательных чисел ',min);
writeln('Максимальный элемент среди положительных чисел ',max);
end.