В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
111120068
111120068
05.07.2022 15:07 •  Информатика

Дан двумерный массив размерностью 6 на 8, элементы которого находятся в диапазоне [-20,30]. Определить на каком месте находится минимальный элемент массива
2. Дан двумерный массив размерностью 6 на 8, элементы которого находятся в диапазоне [20,30]. Выведите на экран новый массив, полученный изменением исходного на одно и то же числа так, чтоб минимальный элемент нового массива стал равен 0.
3. Дан двумерный массив размерностью 6 на 8, элементы которого находятся в диапазоне [-20,30]. Найти сумму максимальных элементов каждого столбца
4. Дан двумерный массив размерностью 6 на 8, элементы которого находятся в диапазоне [-20,30]. Поменять местами минимальный и максимальный элементы массива. Новый массив вывести на экран.

Показать ответ
Ответ:
ksysharoma123
ksysharoma123
13.10.2020 13:27

pascal

Объяснение:

Задание 1

var

 i, j, mini, minj: integer;

 min: real;

 a: array [1..6, 1..8] of real;

begin

 min := 30;

 for i := 1 to 6 do begin

   for j := 1 to 8 do begin

     a[i, j] := random(51) - 20;

     Write(a[i,j]:6);

     if a[i, j] <= min then begin

       min := a[i, j];

       mini := i;

       minj := j;

     end;

   end;

   WriteLn;

 end;

WriteLn('Минимальный элемент A[',mini,',',minj,']=', min);

end.

Задание 2

var

 i, j: integer;

 min: real;

 a: array [1..6, 1..8] of real;

begin

 min := 30;

 for i := 1 to 6 do begin

   for j := 1 to 8 do begin

     a[i, j] := random(11) + 20;

     Write(a[i,j]:6);

     if a[i, j] <= min then min := a[i, j];

   end;

   WriteLn;

 end;

 

 for i := 1 to 6 do

   for j := 1 to 8 do

     a[i, j] := a[i, j] - min;

 WriteLn('Новый массив:');

 for i := 1 to 6 do begin

   for j := 1 to 8 do begin

     Write(a[i,j]:6);

   end;

   WriteLn;

 end;

end.

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