1o10019soos
21.05.2020 14:28

решить . Все задачи кроме 1

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
SuperLexa555
01.06.2022 21:55

1.Стейтмент в программировании — это то же самое, что и «предложение» в русском языке. Мы пишем предложения, чтобы выразить какую-то идею. В языке C++ мы пишем стейтменты, чтобы выполнить какое-то задание

2. Массив, запись, файл

3. следование, ветвление, повторение

4.Алгоритм — набор инструкций, четко описывающих порядок действий исполнителя для достижения результата решения задачи за конечное число действий.

Свойства алгоритмов: Дискретность,детерминированность,понятность,конечность,универсальность, результативность.

.

.

.

3.Следование — алгоритмическая конструкция, отображающая естественный, последовательный порядок действий. Алгоритмы, в которых используется только структура «следование», называются линейными алгоритмами.Ветвление — алгоритмическая конструкция, в которой в зависимости от результата проверки условия («да» или «нет») предусмотрен выбор одной из двух последовательностей действий (ветвей). Алгоритмы, в основе которых лежит структура «ветвление», называют разветвляющимися. Повторение — алгоритмическая конструкция, представляющая собой последовательность действий, выполняемых многократно. Алгоритмы, содержащие конструкцию повторения, называют циклическими или циклами. Последовательность действий, многократно повторяющаяся в процессе выполнения цикла, называется телом цикла.

0,0(0 оценок)
Ответ:
witin2394j
10.05.2022 23:44
Const
  nn=20;
var
  i,j,a,b,m,x,la,lb,p,ij,mn:integer;
  s:string;
  d:array[1..nn,1..nn] of integer;
begin
  {Инициализация и вывод массива}
  Write('Число строк и столбцов в массиве: ');
  Read(m,x);
  Write('Диапазон значений элементов массива: ');
  Read(a,b);
  Str(a,s);
  la:=Length(s);
  Str(b,s);
  lb:=Length(s);
  if la>lb then p:=la+1 else p:=lb+1;
  Randomize;
  Writeln('Исходный массив');
  for i:=1 to m do begin
    for j:=1 to x do begin
      d[i,j]:=Random(b-a+1)+a;
      Write(d[i,j]:p)
      end;
    Writeln
    end;
  {Нахождение минимума}
  if i>j then ij:=j else ij:=i;
  mn:=d[1,1];
  for i:=1 to ij do
    for j:=1 to x-i do
      if d[i,j]<mn then mn:=d[i,j];
  Writeln('Минимальный элемент выше побочной диагонали равен ',mn)
end.

Пример работы
Число строк и столбцов в массиве: 5 8
Диапазон значений элементов массива: -50 50
Исходный массив
 -10 -18 -42 -33   6  15 -29  16
  -5 -22   7 -49 -43 -44 -42  22
  36 -29  19 -26 -14 -49 -39   2
   2  35 -16  44  13  26 -12 -40
 -50  10 -42 -13  29 -22 -48  34
Минимальный элемент выше побочной диагонали равен -50
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота