Var a:array[1..5,1..7] of integer;
i,j,kolpol,kolotr:integer;
respol,resotr:real;
begin
for j:=1 to 7 do begin
for i:=1 to 5 do begin
a[i,j]:=random(-50,50);
write(a[i,j]:4);
end;
writeln();
end;
for i:=1 to 5 do begin
respol:=0;
resotr:=0;
kolpol:=0;
kolotr:=0;
for j:=1 to 7 do begin
if a[i,j]>0 then begin
respol+=a[i,j];
kolpol+=1;
end
else if a[i,j]<0 then begin
resotr+=a[i,j];
kolotr+=1;
end;
end;
writeln('Среднее значение положительных чисел в ',i,' столбце=', respol/kolpol);
writeln('Среднее значение отрицательных чисел в ',i,' столбце=', resotr/kolotr);
end;
end.
Компьютерная графика<span> — область </span>информатики<span>, которая изучает методы и способы создания и обработки изображений на экране компьютера с помощью специальных программ. В зависимости от способа формирования изображений компьютерную </span>графику <span>подразделяют на растровую и векторную.
_____________________________________________________________
</span><span>Растровое изображение - это изображение, в основе которого лежит таблица.
</span>Достоинства растрового изображения:
⇒ реалистичность изображения;
⇒ возможность изображать на растровом изображении все, что угодно;
⇒ применение к растровым изображениям разнообразных эффектов;
⇒ использование растровых форматов изображений при создании веб-страниц в Интернете.
Недостатки растровых изображений:
⇒ плохое масштабирование растровых изображений; увеличение его без потери качества невозможно;
⇒ невозможность разбить растровое изображение на части и редактировать каждую из них;
⇒ размер растрового изображения <span>больший по сравнению с векторным.</span>
Носитель информации - это тот объект, который информацию может хранить и передавать. В системе "человек - телевизор", носителем будет телевизор, ибо он передаёт человеку информацию, а не наоборот
Синих было N=2^2=4
Тогда всего шаров 24 +4=28
===== PascalABC.NET =====
begin
var B := ArrRandom(20, -99, 99);
B.Println;
Println('min =', B.Min)
end.