С какой графики можно изменить исходный рисунок до неузнаваемости, применяя спецэффекты?

растровой

векторной

фрактальной

верны все ответы

224

394

Посмотреть ответы 2

Ответы на вопрос:

STALKER18KEK

Информатика

4,5(16 оценок)

ответ: верны все ответы

roman19995555

Информатика

4,6(38 оценок)

1.uses crt; const n=20; var i,cp1,cn1: integer; p,cp,cn: real; z: array[1..n] of integer; begin randomize; for i: =1 to n do begin z[i]: =random(20,-20); if z[i]> =0 then begin cp: =cp+z[i]; cp1: =cp1+1; end else begin cn: =cp+z[i]; cn1: =cn1+1; end; cp: =cp/cp1; cn: =cn/cn1; end; if cp> cn then p: =cp+cn else p: =cp*cn; for i: =1 to n do write(z[i],' '); writeln(#13#10,cp: 5: 2,' ',cn: 5: 2,' ',p: 5: 2); end.2.uses crt; const n=15; m=4; var i,j,k,flag,count: integer; a: array[1..n,1..m] of integer; temp: array[1..100] of integer; b: array[1..100,1..m] of integer; beginrandomize; k: =1; count: =0; for i: =1 to n dobeginflag: =1; for j: =1 to m dobegina[i,j]: =random(51,1); if (a[i,j]< 10) or (a[i,j]> 40) thenflag: =0end; if flag=1 thenbegintemp[k]: =i; count: =count+1; k: =k+1; end; end; for i: =1 to count dofor j: =1 to m dob[i,j]: =a[temp[i],j]; writeln('массив a: '); for i: =1 to n dobeginfor j: =1 to m dowrite(a[i,j],' '); write(#13#10); end; if count=0 thenwriteln('нет подходящих строк.')elsebeginwriteln(#13#10,'массив b: '); for i: =1 to count dobeginfor j: =1 to m dowrite(b[i,j],' '); write(#13#10); end; end; end.