В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
помощь155
помощь155
28.12.2021 15:20 •  Информатика

Формировать из одномерного массива, состоящего из 24 элементов, где элементы - случайные числа от -n до n, двумерный массив.

Показать ответ
Ответ:
Сашок311
Сашок311
15.11.2021 13:58

Короче. Вот код.

def matrix_gen(gen, n, m):    Matrix = [];    for i in range(n):        a = [];        for j  in range(m):            a.append(gen[j]);        Matrix.append(a);    return Matrix;

Объяснение

Сначало ты инициализируешь функицю с названием "matrix_gen", которая принимает 3 параметра, 'gen' -- это генератор которые ты будешь использовать. 'n' & 'm' это размер матрицы.

Второй строчкой ты инициалихируешь пустой массив, которые похже заполнишь. Третей строчкой ты в for цикле обходишь все строки матрицы, они же подмассивы массива  Matrix, просто 'a'. Делаем мы это 'n' раз.

Четвётрой строчкой ты инициализируешь массив(ы, мы в цикле) 'a', и следующей строчкой заполняешь уже его. Так же в for цикле. Всего в нём будет 'm' элементов.

Надеюсь решение правильное. Честно говоря у тебя вопрос очень странно поставлен.

0,0(0 оценок)
Ответ:
irinagerasimova1
irinagerasimova1
06.02.2021 22:47

ответ:Program a10;

var a,b:Array [1..100,1..100] of integer;

k,i,n,j,s:integer;

Begin

read(n);

For i:=1 to n do

begin

For j:=1 to n do

begin

read(a[i,j]);

end;

end;

i:=0;j:=0;s:=0;k:=0;

while i<=n do

begin

i:=i+1;j:=j+1;

if(a[i,j]>0)then k:=k+1;

s:=s+a[i,j];

end;

writeln(k,' ',s);

end.

2)

Program a10;

var a,b:Array [1..100,1..100] of real;

k,i,n,m,j:integer;

s:real;

Begin

read(n,m);

For i:=1 to n do

begin

For j:=1 to m do

begin

read(a[i,j]);

end;

end;

k:=0;

for j:=1 to m do

begin

s:=0;

for i:=1 to n do

begin

s:=s+a[i,j];

end;

for i:=1 to n do

begin

if(a[i,j]>(s-a[i,j]))then k:=k+1;

end;

end;

writeln(k);

end.

Объяснение:

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота