Повторяем пройденные темы. 1. Подумайте и запишите в тетрадь, что вы знаете о датчике цвета. Расскажите об основной функции и принципах работы этого датчика. Сколько режимов есть у этого датчика?
2. Составьте кроссворд на тему "Робототехника".

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

#include<iostream>

using namespace std;

int main(){

   float a[10], sum=0, proiz=1;

   int i,j,n,k,l;

   cout<<"Vvedite elementy massiva";  

   for(i=0; i<n; i++) cin>>a[i]>>"\n";

   float max=a[0],min=a[0];

   for(i=0;i<=n;i++){

                     if(a[i]<0) sum+=a[i];

                     if(max>a[i]) k=i;

                     if(min<a[i]) l=i;

                     };

                     cout<<"\nsum="<<sum<<"\n";

   while(i<=n){

               if(l<k) for(i=l;i<=k;i++) proiz*=a[i]; else for(i=k;i<=l;i++) proiz*=a[i];};

               cout<<"\nproiz="<<proiz;

   for (i=0;i<=n-1;i++)

    for (j=i+1;j<=n;i++)  

    if(a[i]>a[j]){

                  sum=a[i];

                  a[i]=a[j];

                  a[j]=sum;

                  }

    for(i=0;i<=n;i++){cout<<"\na[i]="<<a[i]<<"\n";};

    system("pause");

    return 0;

    }

Var a:array of array of integer;
c:array of array of integer;
ma:array of array of integer;
i,j,n:integer;
begin;
randomize;
readln(n);
setlength(a,n+1); //задаём размерность динамических массивов
setlength(c,n+1);
setlength(ma,n+1);
for i:=1 to n do
begin;
setlength(a[i],n+1);
setlength(c[i],n+1);
setlength(ma[i],n+1);
end;

writeln('Matrix A:');   //генерируем массив псеводслучайных чисел
for i:=1 to n do begin;
 writeln;
  for j:=1 to n do
   begin;
    a[i,j]:=random(10);
    write(a[i,j]:4);
   end;
 end;
writeln;

writeln('Matrix C:'); //аналогично
for i:=1 to n do
 begin;
 writeln;
  for j:=1 to n do
   begin;
    c[i,j]:=random(10);
    write(c[i,j]:4);
   end;
 end;

for i:=1 to n do     //сохраняем матрицу C для транспонации
  for j:=1 to n do
    ma[i,j]:=c[i,j];
    writeln;

writeln('Transpose matrix C:'); //транспонируем C
for i:=1 to n do
 begin;
  writeln;
   for j:=1 to n do
    begin;
     c[i,j]:=ma[j,i];
     write(c[i,j]:4);
    end;
 end;

writeln;
writeln('Final matrix:'); // получаем финальную матрицу
for i:=1 to n do
 begin;
  writeln;
   for j:=1 to n do
    begin;
     ma[i,j]:=2*c[i,j]*a[i,j];
{по свойству дистрибутивности матриц С(A+A)=C*A+C*A=2*C*A}
     write(ma[i,j]:4);
    end;
 end;
end.