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

Напишите программу, которая задает трехмерный массив и находит в нем наибольшее число. ( pascal ). буду рад, если прокомментируете, хочу разобраться.

👇
Ответ:
Raigon
Raigon
26.05.2023

const

  n = 3;

var

  a:array[1..n, 1..n, 1..n] of integer; //объявляем трехмерный массив размерности N x N x N

  i, j, k, max:integer;

begin

  randomize;

  max := -maxint - 1; {присваисваем maxrcbvfkmyjve 'ktvtyne минимальное возможное значения типа integer}

  for i := 1 to n do { с трех циклов проходим по всем элементам массива, чобственно тоже самое что и с двумерным массивом только добаляемтся еще 1 цикл}

  begin

    writeln;

    writeln('i = ', i); {выводм масссива производится в виде нескольких квадратных матриц тут указывается номер каждой квадратной матрицы}

    for j := 1 to n do

    begin

      for k := 1 to n do

      begin

        a[i, j, k] := random(21) - 10; // генерируем случайное значение от -10 до 10

        if a[i, j, k] > max then { если больше текущего максимального то станвится новым максимальным}

          max := a[i, j, k];

        write(a[i, j, k]:4); //выводим элемент массива

      end;

      writeln;

    end;

  end;

  writeln('Максимальный элемент массива равен ', max);

end.

 

 

4,6(19 оценок)
Открыть все ответы
Ответ:
zatzepinanatas
zatzepinanatas
26.05.2023

#include <iostream>

int main() {

  int arr[100], n, first = 0, second = 0;

  std::cin >> n;

  for (int i = 0; i < n; ++i)

      std::cin >> arr[i];

  for (int i = 1; i < n; ++i) {

      const int diff = arr[i] - arr[i - 1];

      if (diff > 0)

          if (arr[i] <= 2000)

              first += diff;

          else if (arr[i - 1] >= 2000)

              second += diff;

          else {

              first += 2000 - arr[i - 1];

              second += arr[i] - 2000;

           }

   }

  std::cout << first << ' ' << second;

  return 0;

Объяснение:

язык python

4,7(64 оценок)
Ответ:
TJ32
TJ32
26.05.2023

var

 n,m:integer;

begin

 writeln('Задача 1');

 readln(n,m);

 if n>=m then  

   writeln('Неправильная')

     else writeln('Правильная');

 writeln;

 writeln('Задача 2');

 n:=random(20); m:=random(20);

 writeln(n,' ',m);

 if n mod m = 0 then  

   writeln('Делится нацело')

     else writeln('Не делится нацело');

 writeln;

 writeln('Задача 3');

 readln(n,m);

 if n<=m then

   if n=m then writeln('Равные')

     else  writeln(n)

     else writeln(m);

end.

Если моё решение вам, пометьте его лучшим !

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