В текстовом режиме экран разбивается на 30 строк по 60 символов в строке. Определите объем в Кбайт текстовой информации, занимающей внсь экран монитора если в кодировке КОИ-8 один символ весит 1 байт?
Пояснение: заполни массив 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.
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 цикла в один двойной цикл, однако это работает не во всех языках.