Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
valentina05ru
08.04.2023 10:08 •
Информатика
Дана вещественная матрица а, размерностью n*m. найти в каждой строке матрицы максимальный элемент.
Показать ответ
Ответ:
tomatik47
12.07.2020 12:58
Const n=5;m=4;
var a: array[1..n,1..m] of real;
i,j:integer;
max:real;
begin
for i:=1 to n do
for j:=1 to m do
readln a[i,j];
for i:=1 to n do
begin
max:=a[i,1];
for j:=2 to m do
if max<a[i,j] then max:=a[i,j];
writeln(max);
end
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Digger2001
18.11.2022 11:49
1. запустите программу несколько раз. объясните, почему при некото-рых запусках треугольники рисуются поверх текста в верхнем левомуглу экрана. измените программу...
ramn
18.11.2022 11:49
Pascal abc 1: пользователь вводит целые числа. остановить его, когда их сумма становится больше 100 2: пользователь вводит символы. остановить его, когда он введет...
sashakameka
18.11.2022 11:49
Знаменатель правильной дроби на 2 больше числителя. если числитель увеличить в 5 раз, а к знаменателю прибавить 5 и сократить дробь, то в результате получится 3/2...
HydRarGyrUm74
31.07.2022 12:21
Для какого из приведённых чисел ложно высказывание: НЕ (число 30) ИЛИ (число чётное)? 1) 28 2) 34 3) 17 4) 45...
Doxlaz
11.12.2021 11:40
Какая физическая величина в макромасштабах является отражением меры кинетического движения частиц вещества? 3. Передача тепла от одного тела к другому посредством...
Yulchan23
07.03.2022 08:50
Напишите сжатое изложение 75-85 слов по тексту данному ниже:...
OnAcHaYa2o2
24.12.2020 05:14
роль Ассамблеи народа Казахстана в общественно-политической и культурной жизни Казахстана синхронизировать с похожими планами Проанализируйте на попс формуле тему...
Паитаоаипа
18.04.2023 11:24
А. Б. В. Г зробіть умене контрольна ...
haskaa12
06.07.2021 07:04
Напишите эссе «Влияние исламской религии на формирование и развитие общественно-политической мысли в Средние века»....
eto1pizdech
24.03.2023 06:33
Вид простого речення : страви не варили, багаття не розкладали А) Означено-особове Б) неозначеною особове В) безособове Г) узагальнено особове...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a: array[1..n,1..m] of real;
i,j:integer;
max:real;
begin
for i:=1 to n do
for j:=1 to m do
readln a[i,j];
for i:=1 to n do
begin
max:=a[i,1];
for j:=2 to m do
if max<a[i,j] then max:=a[i,j];
writeln(max);
end
end.