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

Создайте таблицу в вроде не получается у меня и скиньте на почту [email protected]

👇
Ответ:
anosovmaks9
anosovmaks9
30.06.2022

отправил таблицу на почту

4,5(95 оценок)
Открыть все ответы
Ответ:
kumalena73
kumalena73
30.06.2022
Const
  m = 5;
  n = 8;
  a = 13;

var
  b: array[1..m, 1..n] of integer;
  i, j, k: integer;

begin
  Randomize;
  { Инициализация массива и вывод его первоначального состояния }
  { Одновременно - подсчет количества интересующих элементов }
  k:=0;
  Writeln('Исходный массив');
  for i := 1 to m do
  begin
    for j := 1 to n do
    begin
      b[i, j] := Random(101) - 50;
      Write(b[i, j]:4);
      if (((i mod 2)<>0) and (b[i,j]>a)) then Inc(k)
    end;
    Writeln
  end;
  { Вывод результатов }
  Writeln('Элементов со значением больше ',a,' в нечетных строках: ', k)
end.

Тестовое решение:
Исходный массив
 -11 -32  21  40 -21  -6 -44  18
 -37  18 -10 -33  -6 -41  38   9
  23  -6  38  47 -40 -16  41  37
  50  -9  43  25  16 -12  45 -37
   0  49 -38  45  -2 -29  -9  35
Элементов со значением больше 13 в нечетных строках: 11
4,6(93 оценок)
Ответ:
katya8787871
katya8787871
30.06.2022
Const
  n = 10;

var
  a,b: array[1..n] of integer;
  i, s, imax, smax: integer;

begin
  Randomize;
  Writeln('Элементы массива A');
  for i := 1 to n do
  begin
    a[i] := Random(30)+5;
    Write(a[i]:3);
  end;
  Writeln;
  smax:=0; imax:=0;
  Writeln('Элементы массива B');
  for i := 1 to n do
  begin
    b[i] := Random(30)+5;
    Write(b[i]:3);
    s:=a[i]*b[i];
    if smax<s then begin imax:=i; smax:=s end
  end;
  Writeln;
  Writeln('Прямоугольник номер ',imax,' имеет максимальную площадь ',
    a[imax],'x',b[imax],'=',smax)
end.

Тестовое решение:
Элементы массива A
 31 30 34  9 12 11 11 24 34 29
Элементы массива B
 18 16 15 16 19 22 24 22 25  5
Прямоугольник номер 9 имеет максимальную площадь 34x25=850
4,6(83 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ