makskot69
24.11.2021 08:08

1) Від чого залежить успіх виступу із презентацією? 2) Як варто виступати перед глядачами із презентацією?
3) Чому для виступу із презентацією готують демонстраційні матеріали?
4) Які параметри друку можно налаштувати?

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
irynafurmanets
06.05.2020 17:58
Const
  n=10; 
  m=10;
var
  a: array[1..n,1..m] of integer;
  b: array[1..n] of integer;
  i,j,k: integer;
begin;
  k:=0;
  writeln ('Двумерный массив:');
  for i:=1 to n do begin
    for j:=1 to m do begin
      a[i,j]:=random(100)-50;
      write (a[i,j]:4);
      if (a[i,j]<0) and (abs(a[i,j] mod 2)=1)
        then k:=k+1;
    end;
    writeln;
    b[i]:=k;
    k:=0;
  end;
  writeln;
  writeln ('Сформирован одномерный массив:');
  for i:=1 to n do
    write (b[i]:3);
end.

Результат:

Двумерный массив:
  19  30 -49 -10 -10 -14 -25 -19 -16 -11
 -18  18   1  18  32  21  22 -33  45  45
 -50 -26 -24 -47   8  39  14  34  45 -21
 -33   5 -26   3 -38   0 -40  31 -42  11
 -32 -25 -47   2 -24  34 -48 -27  18   8
  12  42 -49   7  23  -5   3  48  32   1
  22  -9 -14 -46 -28  26  -6  48   5 -19
  11  40 -42 -17  27  25 -29  23  26  24
  36  -9 -34 -14  17 -26   3  16  29  17
  47 -39  49   7  39  26  39  48 -21  -1

Сформирован одномерный массив:
  4  1  2  1  3  2  2  2  1  3
0,0(0 оценок)
Ответ:
zheniskanovaa
06.05.2020 17:58
// PascalABC.NET 3.2, сборка 1363 от 17.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var m:=ReadInteger('Количество строк в массиве:');
  var n:=ReadInteger('Количество столбцов в массиве:');
  Writeln('*** Исходный массив [',m,',',n,'] ***');
  var a:=MatrRandom(m,n,-50,50);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var b:=a.Rows.Select(x->x.Where(y->(y<0) and y.IsOdd).Count);
  b.Println;
end.

Пример
Количество строк в массиве: 10
Количество столбцов в массиве: 13
*** Исходный массив [10,13] ***
  -7 -30 -31  26 -19   4 -26 -37 -17   2  -7 -20  20
  -6  33 -24 -14 -26  38 -11 -34 -40 -22  31   7  35
 -24  -9 -35  -7 -14  -3  25  38 -30 -50  42  26 -15
  45 -17   6 -18  27  25 -21 -21   1 -39  36 -27 -49
  32 -38  -9 -17  42 -11 -31  -4 -23  33  48  40 -34
  47   6  32 -26  33 -15  10  40  43 -44  11  28   1
 -45 -23   6  26 -20 -20 -30 -15  16  12  -3  38 -42
   3   6  39  17   0   8  -7  11  29  23  -2 -23 -21
   1  13 -39  39 -44  30   5  -9 -17  43  41   2   2
  17  19  32 -20  45 -16 -13  24  32 -46 -49 -25   6

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