Заполнить двумерный массив случайными числами?

Информатика | 10 - 11 классы

Заполнить двумерный массив случайными числами.

Размерность массива и диапазон генерации вводятся с клавиатуры.

Составить программу, которая вычисляет сумму всех элементов массива.

Затем организовать новый массив В, в котором заменить отрицательные элементы исходного массива на 1, а значения остальных элементов оставить без изменения.

Подсчитать количество замен.

Ответить на вопрос
Ответы (1)
Lunia 11 сент. 2020 г., 01:42:16

Program primer ;

procedure random(c, x, y : integer ; var r : integer) ; begin case c of 1 : r : = Random(ABS(Y) + ABS(x) + 1) + x ; 2 : r : = Random(ABS(Y) + ABS(x) + 1) + y ; 3 : r : = Random(Y - x + 1) + x ; 4 : r : = Random(x - y + 1) + y ; 5 : r : = Random(x + y) ; 6 : r : = Random(ABS(x + y)) - ABS(x + y) ; 7 : r : = x ; 8 : r : = Random(ABS(ABS(x) - ABS(y))) - ABS(x) ; 9 : r : = Random(ABS(ABS(x) - ABS(y))) - ABS(y) ; end ; end ;

var a, b : array of array of integer ; i, j, x, y, c, m, p, sum : integer ; begin

Randomize ;

sum : = 0 ;

writeln('Кол - во строк и столбцов массива?

/ / X, Y \ \ ') ;

read(i, j) ; / / Размерность массива

writeln('Диапазон чисел / / от X, до Y \ \ ') ;

read(x, y) ; / / и диапазон генерации вводятся с клавиатуры.

If (x = y) then

c : = 7

else

if(x< ; 0) and (y< ; 0) then

if (x< ; y) then

c : = 8

else

c : = 9

else

if (x = 0) or (y = 0) then

if(x< ; 0) or (y< ; 0) then

c : = 6

else

c : = 5

else

if(x< ; 0) or (y< ; 0) then

if (x< ; y) then

c : = 1

else

c : = 2

else

if (x< ; y) then

c : = 3

else

c : = 4 ;

SetLength(a, i) ;

for m : = 0 to i - 1 do SetLength(a[m], j) ; SetLength(b, i) ;

for m : = 0 to i - 1 do SetLength(b[m], j) ;

for m : = 0 to i - 1 do begin

writeln() ; for p : = 0 to j - 1 do begin random(c, x, y, a[m, p]) ; {Заполнить двумерный массив случайными числами.

}

sum : = sum + a[m, p] ; {вычисляет сумму всех элементов массива} write (a[m, p] : 3, ' ' : 3) ; end ; end ; c : = 0 ; writeln('summa = ', sum) ;

for m : = 0 to i - 1 do begin {Затем организовать новый массив В }

writeln() ; for p : = 0 to j - 1 do begin

if (a[m, p] < ; 0) then begin b[m, p] : = 1 ; {в котором заменить отрицательные элементы исходного массива на 1} inc(c) ; {Подсчитать количество замен.

} end else b[m, p] : = a[m, p] ; {а значения остальных элементов оставить без изменения}

write(b[m, p] : 3, ' ' : 3) ; end ;

end ;

writeln('kol = ', c) ; a : = NIL ;

b : = NIL ;

end.

/ / ABC Pascal.

Кунслу 19 мая 2020 г., 15:57:01 | 5 - 9 классы

Заполнить массив из 13 целых элементов случайными числами из диапазона от 5 до 15?

Заполнить массив из 13 целых элементов случайными числами из диапазона от 5 до 15.

Обеспечить вывод исходного массива на экран.

Подсчитать произведение четных элементов массива.

Побыстрее , пожалуйста))).

NadyaIgn050 9 февр. 2020 г., 16:17:09 | 5 - 9 классы

Быстрее, пожайлуста?

Быстрее, пожайлуста!

Очень важно!

2) Составить программу, которая в целом двумерном массиве (6, 3) определяет число элементов больше числа, которое вводится с клавиатуры.

Массив сгенерирован с помощью датчика случайных чисел в диапазоне (1, 8).

Элементы массива вывести на экран построчно.

Scool1997 6 июл. 2020 г., 13:55:00 | 5 - 9 классы

Составьте программу , которая организует ввод массива а[1?

Составьте программу , которая организует ввод массива а[1.

10] с клавиатуры , затем преобразовает массив , заменяя все отрицательные элементы их модулями.

МаксимШевкунов2004 18 нояб. 2020 г., 09:05:52 | 10 - 11 классы

1. Заполнить массив с клавиатуры целыми числами?

1. Заполнить массив с клавиатуры целыми числами.

Вывести элементы этого массива на экран.

(Добавить комментарии) 2.

Заполнить массив таким образом, чтобы каждый его элемент был равен утроенному значению его порядкового номера (индекса).

3. Ввести массив с клавиатуры, найти и вывести сумму элементов массива.

4. Ввести массив с клавиатуры, подсчитать, сколько в нем положительных элементов, а сколько отрицательных.

5. В одномерном массиве подсчитать, сколько отрицательных элементов находится на четных местах и сколько положительных на нечетных.

6. Элементы массива вводятся с клавиатуры, заменить в нем все отрицательные элементы их квадратами, а положительные кубами.

Вывести на экран исходный и новый массив.

7. Ввести массив с клавиатуры, найти и вывести на экран максимальный и минимальный элементы.

8. Написать программу, которая определяет есть ли в массиве элемент введенный пользователем, подсчитывает их количество и выводит номер первого найденного элемента.

Klublena2011 27 июн. 2020 г., 01:58:52 | 5 - 9 классы

Создать массив из 12 элементов на промежутке [ - 8 ; 10] вынести строчку на экран?

Создать массив из 12 элементов на промежутке [ - 8 ; 10] вынести строчку на экран.

1) подсчитать количество элементов в массиве, значения которых больше 3.

2) найти сумму всех отрицательных элементов массива.

3) заменить все отрицательные элементы массива их индексами.

Вывести новый массив на экран

4)найти максимальный элемент.

Cheburek98 22 дек. 2020 г., 11:54:32 | 5 - 9 классы

Написать программу, которая запрашивает массив из N элементов, а затем делает все элементы массива на минимальный элемент?

Написать программу, которая запрашивает массив из N элементов, а затем делает все элементы массива на минимальный элемент.

Протестировать программу на массивах размерностью 5 и 10 элементов.

Кубишка 18 июл. 2020 г., 12:57:53 | 10 - 11 классы

В массиве подсчитать : сумму чётных элементов?

В массиве подсчитать : сумму чётных элементов.

(Элементов массива : 7.

Массив вводится с клавиатуры).

MRcoffee 14 мар. 2020 г., 08:36:28 | 5 - 9 классы

Помогите решить задачи на паскаль?

Помогите решить задачи на паскаль.

1) Дан массив случайных чисел (количество элементов вводите с клавиатуры).

Найти произведение всех элементов массива.

2) Дан массив случайных чисел (количество элементов вводите с клавиатуры).

Найти сумму четных элементов массива.

3) Дан массив случайных чисел (количество элементов вводите с клавиатуры).

Найти максимальный элемент массива.

4) Дан массив случайных чисел (количество элементов вводите с клавиатуры).

Найти максимальный элемент массива среди элементов, кратных 3.

Anya8a 7 авг. 2020 г., 02:55:25 | 10 - 11 классы

Решите задачи : 1) Составьте программу ввода элементов массива [1?

Решите задачи : 1) Составьте программу ввода элементов массива [1.

8] с клавиатуры и вывода на экран элементов массива с отрицательными значениями.

2) Составьте программу, которая заполняет массив а [1.

10] случайными целыми числами в диапазоне от 1 до 10 и находит количество элементов с четными значениями.

3) Составьте программу, которая заполняет массив а [1.

10] случайными целыми числами в диапазоне от 1 до 10 и находит сумму элементов с четными значениями и количество элементов с нечетными значениями.

4) Составьте программу, которая заполняет массив а [1.

10] случайными целыми числами в диапазоне от 1 до 10, затем элементы с четными индексами удваивает, а элементы с нечетными индексами утраивает.

Выведите на экран исходный и полученный массивы.

Pro100zheka 5 нояб. 2020 г., 16:50:49 | 5 - 9 классы

Заполнить массив из 10 элементов случайными целыми числами из диапазона - 100 – + 100?

Заполнить массив из 10 элементов случайными целыми числами из диапазона - 100 – + 100.

Найти :

a) наименьший элемент массива и его порядковый номер ;

b) наибольший элемент массива и его порядковый номер ;

c) сумму отрицательных и положительных элементов массива ;

d) среднее арифметическое отрицательных и положительных элементов массива ;

e) количество значений отрицательных, положительных и равных нулю элементов массива ;

На странице вопроса Заполнить двумерный массив случайными числами? из категории Информатика вы найдете ответ для уровня учащихся 10 - 11 классов. Если полученный ответ не устраивает и нужно расшить круг поиска, используйте удобную поисковую систему сайта. Можно также ознакомиться с похожими вопросами и ответами других пользователей в этой же категории или создать новый вопрос. Возможно, вам будет полезной информация, оставленная пользователями в комментариях, где можно обсудить тему с помощью обратной связи.