В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
liza8332
liza8332
01.07.2020 19:13 •  Информатика

решите я не понимаю номер 5


решите я не понимаю номер 5

Показать ответ
Ответ:
Dashaqqq123
Dashaqqq123
02.01.2021 03:11

<script type="text/javascript">

   // создание многомерного массива.

       var arr = new Array(5);

 arr[0]= new Array(-1, 2, -3, 4, 5);  

 arr[1]= new Array(6, 7, -8, 9, 1);  

 arr[2]= new Array(4, -5, 6, 7, 8);

 arr[3]= new Array(-3, 2, -1, 9, 8);

 arr[4]= new Array(7, -6, -5, 4, -3);  

        for (var i = 0; i < arr.length; i++) {  

           for (var j = 0; j < arr[i].length; j++)  {          

                 if (i==j){

                   if (arr[i][j] < 0)

    arr[i][j]= "0"

               else

                   arr[i][j] = "1" ;

                //вывод заполненной Ячейки сразу      

           }  

  document.write(" "  +arr[i][j]+  "");            

       }  

 document.write("<br/>");

}            

</script>

0,0(0 оценок)
Ответ:
ikaerlapova
ikaerlapova
01.02.2023 17:28
Program pr;
uses crt;

Var mas:array[1..1000, 1..1000] of integer;
N,M,i,j,k:integer;

Begin
Writeln('Введите размер матрицы N*M');
Write('N = ');
readln(N);
Write('M = ');
readln(M);

if (M>1000) or (N>1000) or (M<1) or (N<1)
then  
Writeln('Ошибка, указанные значения выходят за пределы матрицы')   else   
        Begin      
 Writeln('Введите элементы матрицы');      

k:=0; 
 for i:=1 to N do     
  for j:=1 to M do     
    Begin     
      readln(mas[i,j]);       
      if (mas[i,j] mod 2 = 0) then k:=k+1;     
    end; 
  
    Writeln();   
    Writeln('Исходная матрица');
   
   for i:=1 to N do   
     Begin     
       for j:=1 to M do     
          Begin     
             Write(mas[i,j], ' ')     
           end;     
      Writeln();   
     end;         

Writeln();   
Writeln('Количество четных элементов = ',k);      
 end;

readln;
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота