. Sketchup бағдарламасында обьектілерді кірістіруге болатын қандай модульдер бар?

4. “Материалы” модулінің негізгі функцияларын атаңыз

5. “Компоненты” модулінің негізгі функцияларын атаңыз

6. “Стили” модулінің негізгі функцияларын атаңыз

7. Басқа бағдарламалардан кірістірілген обьектілерге мысал келтіріңіз

8. Кірістірлген обьектілер бағдарламаға қандай мүмкіндіктер беретінін анықтаңыз

​

PROFIT?

 

program lol;
var
mas:array[1..20] of integer;
max,min,i:integer;
begin
randomize;
for i:=1 to 20 do
begin
mas[i]:=random(100);
writeln('Element #',i,': ',mas[i]);
end;
writeln;
for i:=1 to 20 do if mas[i] > max then max:=mas[i];
writeln('MAX: ',max);
min:=max;
for i:=1 to 20 do if mas[i] < min then min:=mas[i];
writeln('MIN: ',min);
writeln;
for i:=1 to 20 do
if (mas[i] >= min) and (mas[i] <= max) and (mas[i] mod 5 = 0) and (mas[i] <> 0) then
writeln('Element #',i,': ', mas[i]);
readln;
end.

Var i,n,fs,ls: integer;
    fsz,indf,indl: int64;
    f: file of integer;
begin
  write('n = '); readln(n);
// запись в файл целых чисел  
  assign(f,'input.txt');
  rewrite(f);
  for i:=1 to n do write(f,random(-3000,8000));
  close(f);
// замена элементов в файле  
  assign(f,'input.txt');
  reset(f);
  fsz:=FileSize(f); 
  indf:=0;
  for i:=0 to fsz-1 do
  begin
    read(f,n);
    if ((n mod 2)<>0) and (indf=0) then
    begin
      indf:=i; fs:=n;
    end;  
    if (n mod 2)=0 then
    begin
      indl:=i; ls:=n;
    end;  
  end;
  reset(f);
  seek(f,indf);
  write(f,ls);
  reset(f);
  seek(f,indl);
  write(f,fs);
  close(f);
end.