Дана матрица 8 на 5, заполненная случайными числами от 0 до 10.нужно вывести на экран исходную матрицу и матрицу, в которой к третьему столбцу добавлен шестой.

Var   i,j,k: integer;   a: array[1..5,1..8]of integer; begin writeln('исходная матрица: '); for i: =1 to 5 do   begin   for j: =1 to 8 do     begin     a[i,j]: =random(11);     write(a[i,j]: 3);     end;   writeln;   end; writeln('преобразованная матрица: '); for i: =1 to 5 do   begin   for j: =1 to 8 do     begin     if j=3 then  a[i,3]: =a[i,3]+a[i,6];     write(a[i,j]: 3);     end;   writeln;   end; end.

ответ:

#include

#include

int main()

{

int a[10]={}; // создаем массив состоящий из 10 элементов.

int countforplus = 0; // счетчик для положительных значений.

int countforminus = 0; // счетчик для отрицательных значений.

int summ = 0; // переменная в которой будут храниться сумма   элементов массива

printf("vvedite 10 elementov massiva \n");

for (int i = 0; i < 10; i++)

{

 

  scanf_s("%d", & a[i]);

  if (a[i] < 0)

  {

  countforminus++; // если, элемент массива будет отрицательным,

      // то счетчик для отрицательных значений будет увеличиваться.

  }

  else

  {

  countforplus++; // иначе, элемент массива будет положительным,

        // то счетчик для положительных значений будет увеличиваться.

  }

  //summ += arr[i];

}

if (countforplus > countforminus) // сравниваем счетчики, если положительный больше отрицательного то

{           // находим сумму всех элементов массива

  for (int i = 0; i < 10; i++)

  {

  summ += a[i];

  }

  printf("%d \n", summ);

}

else

{

  printf("otricatelnih elemntov massiva bolshe chem polochitelnih \n");

}

system("pause");

return 0;

}

объяснение:

ответ:

1

2

3

4

5

6

7

8

9

10

11

12

13

14

var

s : real;

c, i : integer;

begin

s: =0;

c: =0;

for i: =10 to 99 do

  if (i mod 2 =1) and (i mod 3 =0) then begin

                                        s: =s+i;

                                        inc(c);

                                        end;

s: =s/c;

writeln(s);

end.

объяснение: