Const n=3; var a:array[1..n,1..n] of integer; ss:array[1..n] of integer; i,j,s,k,max:integer; sr:real; begin writeln('Исходный массив: '); for i:=1 to n do for j:=1 to n do a[i,j]:=random(121)-60; for i:=1 to n do begin for j:=1 to n do write(a[i,j]:5); writeln; end; for i:=1 to n do for j:=1 to n do if (i=3) and (a[i,j]<0) then begin s:=s+a[i,j]; k:=k+1; end; sr:=s/k; writeln('Ср. арифм. отрицательных элементов 3 строки: ',sr); writeln('После обнуления: '); for i:=1 to n do for j:=1 to n do if (j=n-i+1) and (a[i,j] mod 2=0) then a[i,j]:=0; for i:=1 to n do begin for j:=1 to n do write(a[i,j]:5); writeln; end; writeln('Одномерный массив из элементов, имеющих значение больше -5: '); for i:=1 to n do for j:=1 to n do if (a[i,j]>-5) then write(a[i,j],' '); writeln; writeln('Максимальный элемент массива в 1 стоблце: '); max:=a[1,1]; for i:=1 to n do for j:=1 to n do if a[i,1]>max then max:=a[i,1]; write(max); writeln; writeln('Сумма элементов в каждой строке массива: '); for i:=1 to n do ss[i]:=0; for i:=1 to n do for j:=1 to n do ss[i]:=ss[i]+a[i,j]; for i:=1 to n do write(ss[i]:5); writeln; end.
1) На диагонали 15.6" при плотности 220 ppi размещается 15.4*220=3388 пикселя. Если соотношение сторон монитора 16:10, то при длине меньшей стороны х, длина большей стороны 1.6х, а квадрат диагонали по теореме Пифагора составит х²+(1.6х)²=2.56х². Площадь экрана составит 1.6х*х, что составляет (1.6/2.56) квадрата диагонали или 0.625*3388² = 7 174 090 пикселей. При 24-х битном цвете каждый символ кодируется тремя байтами, поэтому общий объем составит 7174090*3=23 142 270 байт или примерно 22.07 Мбайт. 2) Для перехода от цветовой модели RGB к HSB существуют различные алгоритмы, в данном случае использован алгоритм, приведенный в Bикипедии в статье "HSV (цветовая модель). Исходные данные: R=0, G=152; B=220. Находим максимальное и минимальное из значений: max=220 (R), min=0.
var a:array[1..n,1..n] of integer;
ss:array[1..n] of integer;
i,j,s,k,max:integer; sr:real;
begin
writeln('Исходный массив: ');
for i:=1 to n do
for j:=1 to n do a[i,j]:=random(121)-60;
for i:=1 to n do begin
for j:=1 to n do write(a[i,j]:5);
writeln;
end;
for i:=1 to n do
for j:=1 to n do
if (i=3) and (a[i,j]<0) then begin
s:=s+a[i,j];
k:=k+1;
end;
sr:=s/k;
writeln('Ср. арифм. отрицательных элементов 3 строки: ',sr);
writeln('После обнуления: ');
for i:=1 to n do
for j:=1 to n do
if (j=n-i+1) and (a[i,j] mod 2=0) then a[i,j]:=0;
for i:=1 to n do begin
for j:=1 to n do write(a[i,j]:5);
writeln;
end;
writeln('Одномерный массив из элементов, имеющих значение больше -5: ');
for i:=1 to n do
for j:=1 to n do
if (a[i,j]>-5) then write(a[i,j],' ');
writeln;
writeln('Максимальный элемент массива в 1 стоблце: ');
max:=a[1,1];
for i:=1 to n do
for j:=1 to n do
if a[i,1]>max then max:=a[i,1];
write(max);
writeln;
writeln('Сумма элементов в каждой строке массива: ');
for i:=1 to n do
ss[i]:=0;
for i:=1 to n do
for j:=1 to n do
ss[i]:=ss[i]+a[i,j];
for i:=1 to n do write(ss[i]:5);
writeln;
end.