tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Дан двумерный массив, размер
Дан двумерный массив, размер 6х7. определить, сумма каких элементов больше - 2-го столбца или 3-ей строки?
12oskar12oskar
3 23.05.2019 08:00
0
Ответы
kURGA
18.06.2020 23:57
Var
a : array [1..6, 1..7] of Integer;
i, e, col, row : Integer;
begin
for i := 1 to 6 do
for e := 1 to 7 do
a[i, e] := Random(100);
for i := 1 to 7 do col := col + a[2, i];
for i := 1 to 6 do row := row + a[i, 3];
if col > row then Writeln('2-го столбца');
if col < row then Writeln('3-ей строки');
if col = row then Writeln('равны');
Readln;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
карамакфин
07.09.2019 03:00
С++ написать код, чтобы в массиве каждому элементу была присвоена буква, полная такая: дан файл в нём слова, нужно провести сортировку по алфавиту пузырьковым методом...
bkonok832
31.03.2021 12:14
Решить выражения по языку Фортрана sqrt(25.)+4*4**3/629-35/7 4*4**3/715+abs(-26.)+29/64 5**3-17/75+abs(-66)/102 и написать их тип...
хюрем3
02.11.2020 06:44
4x²+7÷3x-6 составьте блок- схему алгоритма для вычисления значения функции...
piotrewch
02.11.2020 06:45
Информационный объект - ВУЗ (высшее учебное заведение), выявить существенные признаки (данные) объекта выявить существенные признаки (данные) объекта необходимые для...
Emulov
24.05.2019 17:40
Ввести три действительных числа x, y, z . вычислить q,w поформулам: q = max(x ⋅ y ⋅ z, 3⋅ z ⋅ x, 2⋅ (x + y + z)); w = min(3⋅ x ⋅ y ⋅ z , q/ 2). вычисленные значения...
лимпоьип
24.05.2019 17:40
Разобраться, заполните массив из 10 чисел через генератор случайных чисел в диапазоне от 1 до 10 и найдите, на сколько сумма первых 5 чисел больше суммы вторых. заполните...
vikaMiwka
24.05.2019 17:40
Разгадайте кроссворд объекты и их признаки !...
temka2013
01.05.2021 07:17
Напиши какие нужно выполныть действия, чтобы вставить обычную сноску в концевую сноску ) ...
Топовая20171
17.08.2019 05:01
Видеокарты все одинаковы ? ( по разъёму куда вставлять )...
АннаК78
17.08.2019 09:00
Логическое выражение d (¬a& b)∨(a& ¬b)∨(a& b)...
Популярные вопросы
2. Вычислите, используя свой ва умноження15, 34-(- 1,09)+(15,34)*(-1,09)...
3
Қазақ тілі жасап беріңізші тез өтірік болмасыншы ...
1
Решить одно уравнение методом Гаусса и одно уравнение методом Крамера....
3
Какое развитее действий в стихотворении Александра Пушкина — Бесы:...
3
Определи какие положительные результаты принесли Крестовые походы...
1
Https://friendsquiz.site/ru/sd/quiz/3452664 ?ют,рчдрчднвднбесплатно...
2
Расшифруйте текст: ьоДдж ш ленсв ю чо.ьмтУороб лы онмго.л жу Метод:...
1
Жанр стихотворения тигр о тигр горящий и два признака...
2
приведите аргументы. чем именно заслужили декабристки наше уважение....
3
Сделайте синтаксический разбор предложения:Если ты художник, то...
3
a : array [1..6, 1..7] of Integer;
i, e, col, row : Integer;
begin
for i := 1 to 6 do
for e := 1 to 7 do
a[i, e] := Random(100);
for i := 1 to 7 do col := col + a[2, i];
for i := 1 to 6 do row := row + a[i, 3];
if col > row then Writeln('2-го столбца');
if col < row then Writeln('3-ей строки');
if col = row then Writeln('равны');
Readln;
end.