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

Задать любым 5 элементов массива. Записать элементы массива в обратном порядке: а) в другой массив, б) в том же массиве. На языке Си

👇
Открыть все ответы
Ответ:
pya98
pya98
11.07.2020
Есть легенда,что при римской империи,что бы посетить императора для чего-либо,простолюдину нужно было принести дар императору. Мария Магдалина, когда пришла к императору Тиберию о том, что бы сообщить ему благостную весть о воскресении Иисуса Христа ничего при себе не имела,кроме белого яйца.Тогда император сказал: "Я поверю тебе если это белое яйцо станет красным"! Совершилось чудо яйцо туже секунду мгновенно покраснело,тогда Мария Магдалина протянула красное яйцо императору и сказала "Христос Воскрес"! Император Тиберий принял яйцо провозгласил о чуде в словах "Воистину Воскрес"!!Ну так сказать, отсюда и пошло как обычай красить яйца на Пасху.
4,5(63 оценок)
Ответ:
kumalena73
kumalena73
11.07.2020
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 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ