Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
казактілі3
11.11.2021 11:52 •
Информатика
Дана матрица размера 5х10. найти максимальное значение в каждом столбце.
Ответ:
accacherrygdghvcg
10.07.2020 01:22
Готово,числа рандомные
0,0
(0 оценок)
Ответ:
MechtaJasnaja
10.07.2020 01:22
Program z1;
var a:array[1..100,1..100] of integer;
I,j,max:integer;
Begin
for I:=1 to 5 dp
For j:=1 to 10 do
Read(a[I,j]);
For j:=1 to 10 do
Begin
Max:=a[1,j];
For I:=2 to 5 do
if a[i,j]>max then max:=a[i,j];
Writeln(a[i,j]);
End;
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
Kreizanova
11.04.2020 03:10
Документ является ли приемником информации да или нет?...
stepankachan
31.10.2022 07:08
Вставь пропущенные слова.модель является результатом процесса модель обладает не всеми а только некоторыми .. имеет...
magomedov254
07.11.2021 16:07
10. дан одномерный массив. к четным элементам массива прибавить в, а из нечетных вычесть с. значения в и с вводятся с клавиатуры...
никита3343
26.01.2023 00:53
Ярил дубок по икт кароч,я туплю тут полчаса,и не понимаю ничего. хелп,найдите ошибки и напишите как правильно. program d; var s,i,n,x ; integer; begin s; =0; a: =8; read(n);...
Soffik0611
19.02.2020 20:42
Составьте программу в паскале. условный оператор. ввести число а. начертить вертикальную линию в левой части экрана если a 0 и в правой части экрана в противном случае....
Ozabo4eniy
28.04.2020 12:08
Напишите загадку про спортивный костюм, юбку, футболку, шорты. ! зарание...
nevfyjdffyz1
02.05.2023 06:51
Простейший текстовый редактор который можно использовать в качестве средства просмотра текстовых файлов...
vadimfarxudinov
07.11.2021 04:44
Как переделать презентацию power point 2003 в power point 2007...
Nail20041
08.03.2020 05:01
Дано n. найти произведение четных чисел этого числа. решить с паскаля. , у меня вышла такая программа: program pr1; var n,p,m: integer; begin write( n= ); readln(n); m:...
Юмилия
07.07.2022 18:18
Написать программу. заданы 4 числа. найти среднее арифметическое и среднее этих чисел....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var a:array[1..100,1..100] of integer;
I,j,max:integer;
Begin
for I:=1 to 5 dp
For j:=1 to 10 do
Read(a[I,j]);
For j:=1 to 10 do
Begin
Max:=a[1,j];
For I:=2 to 5 do
if a[i,j]>max then max:=a[i,j];
Writeln(a[i,j]);
End;
End.