1) выберите утверждения, относящиеся к недостаткам растровой графики: а) сложно автоматизировать ввод - id154502020201225 от DEAFKEV 25.12.2020 03:09

Question

Информатика: 1) выберите утверждения, относящиеся к недостаткам растровой графики: а) сложно автоматизировать ввод в компьютер; б) нет информации о форме объектов, составляющих рисунок; в) не подходит для создания логотипов и чертежей; г) нельзя использовать для хранения изображений фотореалистичного качества. 2) какую операцию можно выполнить только над замкнутым объектом? а) преобразовать в кривую безье; б) выполнить обводку; в) задать контур; г) выполнить заливку; д) изменить число узлов. 3) какое число параметров

DEAFKEV · Accepted Answer

Var a:array[1..10] of integer;
k,n,i:integer;
min:INTEGER;
begin
randomize; N:=10; k:=0 {кол-во отрицательных элементов};
writeln ('исходный массив');
for i:=1 to N do
begin
   if random(2) =1 then a[i]:=random(100)
   else begin k:=k+1; a[i]:=-random(100); min:=a[I] end;
   write(a[i]:5);
end;
writeln;
{поиск минимального положительного}
if (k<>0) or (k<>N) then {есть отрицательные или не все отрицательные}
begin
for i:=1 to N do
   if (a[i]>0) and (a[i]<min) then min:=a[i];
{замена}
for i:=1 to N do
   if (a[i]<0) then a[i]:=min;
end;
writeln('Новый массив')
for i:=1 to N do    write(a[i]:5);
end.

MOGZ ответил