Помогите пожалуйста, на завтра.
5-9 класс
|
Найти для каждой строки матрицы сумму максимального и минимального элементов.
const
m1 = 10;
n1 = 15;
var
x: array[1..m1, 1..n1] of integer;
i, j, m, n, mx, mn: integer;
begin
Write('Введите через пробел число строк и столбцов матрицы: ');
Readln(m, n);
Randomize;
Writeln(#13#10, 'Исходная матрица');
for i := 1 to m do
begin
for j := 1 to n do
begin
x[i, j] := Random(100) - 50;
Write(x[i, j]:5)
end;
Writeln
end;
for i := 1 to m do
begin
mx := x[i, 1]; mn := mx;
for j := 2 to n do
if mx < x[i, j] then mx := x[i, j]
else if mn > x[i, j] then mn := x[i, j];
Writeln('В строке ', i, ' мin=', mn, ', max=', mx, ', их сумма=', mn + mx)
end
end.
Тестовое решение:
Введите через пробел число строк и столбцов матрицы: 8 12
Исходная матрица
-50 -15 -17 28 -24 41 -37 27 -3 43 -24 44
-26 22 -33 44 -42 -4 -45 -47 48 6 -14 12
-49 3 -50 32 31 -10 1 3 -50 49 -28 -29
-41 17 31 48 29 6 7 29 35 -26 -25 35
-15 19 33 9 -20 24 29 -6 49 21 26 23
41 -20 46 -43 -9 22 44 -25 0 46 35 -9
15 -43 -27 -8 48 6 27 26 -23 -36 -3 -39
7 42 -27 -25 -31 27 -29 -12 40 -42 -43 -2
В строке 1 мin=-50, max=44, их сумма=-6
В строке 2 мin=-47, max=48, их сумма=1
В строке 3 мin=-50, max=49, их сумма=-1
В строке 4 мin=-41, max=48, их сумма=7
В строке 5 мin=-20, max=49, их сумма=29
В строке 6 мin=-43, max=46, их сумма=3
В строке 7 мin=-43, max=48, их сумма=5
В строке 8 мin=-43, max=42, их сумма=-1
Другие вопросы из категории
помогите пожалуйста
виды обработки информации
Читайте также
надо люди добрые
Задали сделать презентацию о Белке и Стрелке. Я работаю в "Презентация Microsoft PowerPoint" (в других не понимаю как, мне кажется эта наиболее удобная) и мне надо подобрать космический фон. Там, в "Дизайне" этой презентации ничего подобного нет. Я нашла в интернете подходящую картинку для фона, скачала ее на компьютер но я не знаю как ее вставить. Там есть "Шаблоны оформления на Microsoft Ofice Online", но там я ничего не поняла (написала "Космос", вышли несколько картинок, загрузила одну и теперь она неизвестно где) и есть "Шаблоны оформления: Дополнительные", там он просит найти фото. Я точно знаю куда я его загрузила. проверяю несколько раз, но он не находит. Помогите пожалуйста, 3 дня ответ не могу нигде найти!!!
Интернет.
Вот загрузился рабочий стол, подключаю Интернет , захожу в браузер можно сделать поисковые запросы и через некоторое время тема на рабочем столе меняется на старую , помните она как бы такая белая , вся квадратная , ну вот ,а потом обратно на мою выбранную тему .При этом в сетевых подключения показывает , что Интернет подключен , локальная сеть тоже , а в браузере не могу производить поиск пишет : " Нет подключения к Интернету " После перезагрузки компьютера можно снова .
Кто знает помогите , пожалуйста !
телефон) и пароль .я ввожу, нажимаю войти, потом появляется картинка и говорят "Введите код с картинки" (эту функцию я отключила несколько лет назад!!! ) ,ну я думаю, хорошо, я введу, подумаешь три буковки. ВОТ! После этого проблема. мне пишут " Лена, мы зафиксировали попытку взлома Вашей страницы. Не беспокойтесь, она в безопасности. Чтобы обезопасить Вашу страницу от злоумышленников и в будущем, мы просим Вас подтвердить привязку к телефону и придумать новый сложный пароль. " Ладно я ввожу свой номер телефона, чтоб мне пришел код активации. Раньше мне приходило вот это"Для активации услуги подтвердите Ваше согласие с правилами, Ответь ДА стоимость отправки смс на номер 4012 - 203.19"!!! А сейчас уже если я наберу номер ничего абсолютно не происходит. Ага! Еще чего, не буду я на них целых 200 рублей тратить! Помогите пожалуйста мне решить эту проблему
И еще кое что, когда мой брат или подруга тоже попытались зайти в ВК у них всеё было тоже самое
С телефона пароль меняла, но ничего не изменилось
Составьте программу, которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет:
1). сумму чисел, не превышающих 10;
2). сумму чисел,кратных 3. Помогите пожалуйста,написать эту программу на PaskalABC.