Заполнить массив А(n,m) целыми случайными числами

@Тем@ · Регистрация: 06.05.2009

Студворк — интернет-сервис помощи студентам

Помогите решить,очень надо.Заполнить массив А(n,m) целыми случайными числами таким образом чтобы и в каждой строке и в каждом столбце каждый следующий элемент был не меньше предыдущего элемента.Заранее спасибо

@mamedovvms · 08.05.2009, 09:30

begin
randomize;
a[1,1]:=random(50);
for i:=1 to n do
for j:=1 to m do
begin
x:=random(50);
if (i=1)and(a[i,j-1]<=x)then a[i,j]:=x
else
if (a[i-1,j]<=x)and(a[i,j-1]<=x)then a[i,j]:=x;
end;
for i:=1 to n do
for j:=1 to m do
writeln(a[i,j]:3:0);
readln;
end;

@Тем@ · 08.05.2009, 16:26 **[ТС]**

Как сделать чтоб она массивом выводила,а не столбиком?

@Puporev · 08.05.2009, 16:36

Pascal
1
2
3
4
5
6
for i:=1 to n do
  begin
   for j:=1 to m do
   write(a[i,j]:4);
   writeln;
 end;

@Тем@ · 08.05.2009, 16:56 **[ТС]**

Помогите решить,неполучается.Переписать в массив Y все элементы массива X,значения которых кратны 3.элементы массива вычисляются по формуле:x:=i*i+5*i+2, где i=1,2...20

@Puporev · 08.05.2009, 16:59

Pascal
1
2
3
4
5
6
7
8
9
10
11
Массив Х.
for i:=1 to 20 do
x[i]:=i*i+5*i+2;
Массив Y.
k:=0;
for i:=1 to 20 do
if x[i] mod 3=0 then
  begin
    k:=k+1;
    y[k]:=x[i];
  end;

@Тем@ · 08.05.2009, 17:02 **[ТС]**

Можно по подробней ,а то я непонимаю массивы

@Puporev · 08.05.2009, 17:07

А что подробней? Здесь все написано, добавить шапку и вывести оба массива на экран, ума большого не надо, совсем не знаешь, читай учебник, листай форум, примеров куча.

@Тем@ · 08.05.2009, 19:22 **[ТС]**

Спасибо

Добавлено через 2 часа 12 минут 17 секунд
Чего выскакивает несоответствие типа после x[i]:=i*i+5*i+2;

@Puporev · 08.05.2009, 20:15

Значит написал разные типы, должнны быть и те идругие integer.

@Тем@ · 08.05.2009, 20:17 **[ТС]**

Уже разобрался,спасибо

Новые блоги и статьи Все статьи Все блоги /
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .

@Тем@ 0 / 0 / 0 Регистрация: 06.05.2009 Сообщений: 15

	Заполнить массив А(n,m) целыми случайными числами 08.05.2009, 09:14. Показов 4436. Ответов 10 Метки нет (Все метки) Помогите решить,очень надо.Заполнить массив А(n,m) целыми случайными числами таким образом чтобы и в каждой строке и в каждом столбце каждый следующий элемент был не меньше предыдущего элемента.Заранее спасибо 0

@mamedovvms 2923 / 844 / 324 Регистрация: 30.04.2009 Сообщений: 2,633
	08.05.2009, 09:30
	begin randomize; a[1,1]:=random(50); for i:=1 to n do for j:=1 to m do begin x:=random(50); if (i=1)and(a[i,j-1]<=x)then a[i,j]:=x else if (a[i-1,j]<=x)and(a[i,j-1]<=x)then a[i,j]:=x; end; for i:=1 to n do for j:=1 to m do writeln(a[i,j]:3:0); readln; end; 2

@Тем@ 0 / 0 / 0 Регистрация: 06.05.2009 Сообщений: 15
	08.05.2009, 16:26 [ТС]
	Как сделать чтоб она массивом выводила,а не столбиком? 0

@Тем@ 0 / 0 / 0 Регистрация: 06.05.2009 Сообщений: 15
	08.05.2009, 16:56 [ТС]
	Помогите решить,неполучается.Переписать в массив Y все элементы массива X,значения которых кратны 3.элементы массива вычисляются по формуле:x:=ii+5i+2, где i=1,2...20 0

@Тем@ 0 / 0 / 0 Регистрация: 06.05.2009 Сообщений: 15
	08.05.2009, 17:02 [ТС]
	Можно по подробней ,а то я непонимаю массивы 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	08.05.2009, 17:07
	А что подробней? Здесь все написано, добавить шапку и вывести оба массива на экран, ума большого не надо, совсем не знаешь, читай учебник, листай форум, примеров куча. 0

@Тем@ 0 / 0 / 0 Регистрация: 06.05.2009 Сообщений: 15
	08.05.2009, 19:22 [ТС]
	Спасибо Добавлено через 2 часа 12 минут 17 секунд Чего выскакивает несоответствие типа после x[i]:=ii+5i+2; 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	08.05.2009, 20:15
	Значит написал разные типы, должнны быть и те идругие integer. 0

@Тем@ 0 / 0 / 0 Регистрация: 06.05.2009 Сообщений: 15
	08.05.2009, 20:17 [ТС]
	Уже разобрался,спасибо 0