Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.89/18: Рейтинг темы: голосов - 18, средняя оценка - 4.89
0 / 0 / 1
Регистрация: 03.01.2014
Сообщений: 65

Заполнить двумерный массив N x N случайными числами из интервала [-10;10] и найти минимальный элемент в каждом столбце.

03.01.2014, 15:36. Показов 3704. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
2.Заполнить двумерный массив N x N случайными числами из интервала [-10;10] и найти минимальный элемент в каждом столбце.
Заранее спасибо)
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
03.01.2014, 15:36
Ответы с готовыми решениями:

Заполнить двумерный массив N x N случайными числами из интервала [-10;10] и найти максимальный элемент в каждой строке.
1. Заполнить двумерный массив N x N случайными числами из интервала и найти максимальный элемент в каждой строке. Заранее спасибо)

Заполнить двумерный массив N x N случайными числами из интервала [-10 ; 10] и найти сумму и количество элементов
Заполнить двумерный массив N x N случайными числами из интервала и найти сумму и количество элементов стоящих в четных столбцах

Заполнить двумерный массив 3,8 случайными числами. Найти минимум в 4 столбце.
1. Заполнить массив следующими значениями и вывести в виде таблицы. 1 2 3 4 5 6 2 3 4 5 6 1 3 4 5 6 1 2 … ...

1
For i:=0 to 150 do
 Аватар для El41
225 / 105 / 108
Регистрация: 05.01.2012
Сообщений: 287
03.01.2014, 18:00
Лучший ответ Сообщение было отмечено Дмитрий Макеев как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
const
n=5;//размерность
var
a:array[1..n,1..n] of integer;
i,j,min:integer;
begin
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
      a[i,j]:=10-random(20);
      write(a[i,j],'  ');
      end;
      writeln();
  end;
for i:=1 to n do
  begin
    min:=a[i,1];
    for j:=1 to n do
      begin
        if  a[i,j]<min
          then min:=a[i,j];
      end;
      writeln('В ',i,' строке минимальный элемент=',min);
  end;
 
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
03.01.2014, 18:00
Помогаю со студенческими работами здесь

Заполнить двумерный массив случайными числами из интервала и и найти в какой строке сумма элементов наибольшая
Заполнить двумерный массив N x N случайными числами из интервала и найти в какой строке сумма элементов является наибольшей. Сумму...

Заполнить двумерный массив N x N случайными числами из интервала и найти сумму элементов стоящих в четных столбцах
заполнить двумерный массив N x N случайными числами из интервала и найти сумму элементов стоящих в четных столбцах в каждоййстроке

Заполнить двумерный массив случайными числами из интервала и найти сумму элементов массива лежащих на главной диагонали
не работает программа program aaa; var n : integer; s :real; a: array of real; begin s:=0;

Заполнить массив случайными числами, найти минимальный элемент
8. Дан одномерный массив, состоящий из N вещественных элементов. 8.1. Заполнить массив случайными числами. 8.2. Найти минимальный...

Заполнить двумерный массив 4 на 3 случайными значениями. Определить количество нечетных значений в каждом столбце
Заполнить двумерный массив 4 на 3 случайными значениями. Определить количество нечетных значений в каждом столбце.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Символьное дифференцирование
igorrr37 13.02.2026
/ * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image
8Observer8 10.02.2026
Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce
volvo 10.02.2026
В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru