М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
ZayacZnaniy
ZayacZnaniy
06.02.2021 22:56 •  Информатика

Определить двумерный массив и выполнить следующие вычисления:
1. максимальный элемент двумерного массива.
2. сумму элементов двумерного массива, расположенных до последнего положительного элемента.

👇
Ответ:
Happyunicorn28
Happyunicorn28
06.02.2021

const N=5;

var i,j,max,sum,i1,j1:integer;

   a:array [1..N,1..N] of integer;

   st:boolean;

begin

 sum:=0; max:=0; i1:=0; j1:=0;

 st:=false;

 randomize;

 for i:=1 to n do  

   begin

     for j:=1 to n do

       begin

         a[i,j]:=random(31)-10;

         write(a[i,j]:4);

         if st = false then

           begin

             max:=a[i,j];

             st:=true;

           end

             else

               if a[i,j]>max then

                 max:=a[i,j];

          if a[i,j]>0 then

             begin

               i1:=i;

               j1:=j;

             end;

       end;

     writeln;

   end;

 writeln;

 for i:=1 to i1-1 do

   for j:=1 to n do

     sum:=sum+a[i,j];

 for j:=1 to j1-1 do

   sum:=sum+a[i+1,j];

 writeln('MAX: ',max);

 writeln('SUM: ',sum)

 

end.

Объяснение:

4,4(27 оценок)
Открыть все ответы
Ответ:
karina27042005
karina27042005
06.02.2021
//Блок-схема во вложении
//Pascal ABC.NET v3.1 сборка 1172

Var
 ma:array of array of integer;
 i,j,r,n,m,s:integer;
begin
randomize;
 readln(n);
 readln(m);
 setlength(ma,n);
 for i:=0 to n-1 do
 setlength(ma[i],m);
 writeln('Matrix:');
  for i:=0 to n-1 do
   begin
    writeln;
     for j:=0 to m-1 do
      begin
       ma[i,j]:=random(50);
       write(ma[i,j]:4);
      end;
   end;
 writeln;
 writeln('Res:');
 for i:=0 to n-1 do
  begin
   for j:=0 to m-1 do
    s:=s+ma[i,j];
   writeln(i+1,' ',s);
   s:=0;
  end;
end.

Пример ввода:
10
15
Пример вывода:
Matrix:
  12   1  21  15  36  30  12  13  46  40  22  48  20  48   7
  48  37  49  25  37  41  29  23  34  45  38  14  21  13   3
  48  27  29  26  18  28  24  20  21  41  18  10  48   8  46
   5   7  48   9  31  46  35  11  36  41  33  28  37  20  47
  15  41   0  43  42  44  19  44  30  29  24  16  28  34  18
  30  31  14  37  39  30  16  11  32   6  13  16  42  35  35
   0  37  49  23  25  27  10   5  16   2  36  13  18  30   7
  30   6  26  18  11   1  14  49  31  17  49  29  17  37  28
  28  26   8  44  28  36  16   5   8  41  19  25  47  35   2
  17  48  31  25  26   6  39  24  23  33  35  37  18   6  26
Res:
1 371
2 457
3 412
4 434
5 427
6 387
7 298
8 363
9 368
10 394

Дана матрица x(n,m) (n< =10; m< =15). вычислить сумму элементов каждой строки матриц. сумму и
4,7(57 оценок)
Ответ:
85396ira
85396ira
06.02.2021

Разбираешься в компьютерах и играх, но не разбираешься в программирование. Я могу сделать вывод, что ты играл на протяжении 6 лет в игры и собирал себе компьютер для игр

Думаю ты не разбираешься во внутренностях компьютера.

Экзамены перенесли на август, мои тебе советы:

Готовься к ЕГЭ

Смотри видео уроки по профильной математике ЕГЭ от Павла Маслова (Ютуб)

Физику смотри также на Ютубе (Пенкин)

Также могу тебе посоветовать решать каждый день по 15 вариаций заданий, которые ты например выучил решения первого задания матана, решай их как можно больше)

Сдай ЕГЭ

Без него ничего не выйдет

4,7(6 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ