1. трехмерные
2. фрактальные
3. растровые
4. трехмерные, растровые
5. векторные
6. растровое изображение
Label_1:
writeln('Hello World');
goto label_1;
Var
A: array [1..10] of integer;
min,i:integer;
begin
i:=1
while i<11 do
begin
readln(A[i]);
i:=i+1;
end;
i:=1;
n:=A[1];
repeat
if min>A[i] then
min:=A[i]
i:=i+1;
until I=10;
A[10]:=min;
end
Скинь сор я скину как решать.
Объяснение:
^ не стоит у меня, но действие выполняет, у себя его ставьте!