Вычислить массив, каждый элемент которого равен удвоенному произведению соответствующих элементов двух первых массивов

@136191 · Регистрация: 22.11.2021

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

С помощью датчика случайных чисел заданы два двумерных массива размером n строк и m столбцов. Вычислить третий массив такого же размера, каждый элемент которого равен удвоенному произведению соответствующих элементов двух первых массивов. Все массивы вывести.

Помогите, пожалуйста!

@XzzzX · 22.11.2021, 16:54

1)узнаёте размеры массивов
2)формируете 3 массива - 2 функцией matrrandom(m, n), один "пустой"
3)используете циклы, дабы присвоить каждому элементу третьего требуемое значение(можно проще, но сомневаюсь, что стоит показывать лямбды)
4)выводите массивы стандартным методом .print

в чём конкретно возникают проблемы?

@136191 · 22.11.2021, 17:19 **[ТС]**

Мне нужно на Паскале, и желательно, написать саму программу, чтобы она была в готовом виде)

@XzzzX · 22.11.2021, 17:36

Сообщение от 136191

Мне нужно на Паскале

а я про что говорил?

Сообщение от 136191

и желательно, написать саму программу

тогда так и пишите и не вводите людей в заблуждение

Сообщение от 136191

Помогите

и "сделайте за меня" это не одно и то же

@136191 · 22.11.2021, 17:59 **[ТС]**

Да, извините, впервые пишу сюда с просьбой

@XzzzX · 22.11.2021, 18:31

Pascal

##
var (m, n):= readlninteger2;
var (a, a1, a2):= (matrrandom(m, n), matrrandom(m, n), new integer[m, n]);
 
a2.Fill( (i, j) -> 2*a[i, j]*a1[i, j] );
 
a.println; println;
a1.println; println;
a2.print(6);

@136191 · 22.11.2021, 19:59 **[ТС]**

А можно примерно в таком формате сделать? Который вы написали программа не читает

Pascal

program mas2;
type
  LinMass = array [1..50, 1..50] of Integer;
var
  A, B: LinMass;
  n, m, i, j: Integer;
begin
  Write('Количество строк массива: ');ReadLn(n);
  Write('Количество столбцов массива: ');ReadLn(m);
  for I := 1 To n Do 
  begin
    for j := 1 To m Do
    begin
      Write('Введите элементы массива A[', i, ',', j, ']=');
      ReadLn(A[i, j]);
    end;
  end;
  writeln('итоговый массив:':25);
  for i := 1 to n do 
  begin
    for j := 1 to m do 
    begin
      B[i, j] := random(10);
      A[2, j] := B[2, j];
      Write(' A[', i, ',', j, ']=', A[i, j], ';');
    end;
    writeln('   ');
  end;
end.

@XzzzX · 22.11.2021, 20:56

Сообщение от 136191

Который вы написали программа не читает

что это значит?

Сообщение от 136191

примерно в таком формате сделать

примерно с таким форматом лучше пойти в раздел FPC или турбо. писать тотально устаревшим стилем в разделе PascalABC.Net желания что-то нет совсем

@136191 0 / 0 / 0 Регистрация: 22.11.2021 Сообщений: 18
		1
	Вычислить массив, каждый элемент которого равен удвоенному произведению соответствующих элементов двух первых массивов 22.11.2021, 15:21. Показов 804. Ответов 7 Метки Pascal (Паскаль), pascal abc, pascal abc net, двумерные массивы, двумерныемассивы, программирование. паскаль (Все метки) С помощью датчика случайных чисел заданы два двумерных массива размером n строк и m столбцов. Вычислить третий массив такого же размера, каждый элемент которого равен удвоенному произведению соответствующих элементов двух первых массивов. Все массивы вывести. Помогите, пожалуйста! 0

@XzzzX 400 / 276 / 119 Регистрация: 09.07.2021 Сообщений: 996
	22.11.2021, 16:54	2
	1)узнаёте размеры массивов 2)формируете 3 массива - 2 функцией matrrandom(m, n), один "пустой" 3)используете циклы, дабы присвоить каждому элементу третьего требуемое значение(можно проще, но сомневаюсь, что стоит показывать лямбды) 4)выводите массивы стандартным методом `.print` в чём конкретно возникают проблемы? 0

@136191 0 / 0 / 0 Регистрация: 22.11.2021 Сообщений: 18
	22.11.2021, 17:19 [ТС]	3
	Мне нужно на Паскале, и желательно, написать саму программу, чтобы она была в готовом виде) 0

@XzzzX 400 / 276 / 119 Регистрация: 09.07.2021 Сообщений: 996
	22.11.2021, 17:36	4
	Сообщение от 136191 Мне нужно на Паскале а я про что говорил? Сообщение от 136191 и желательно, написать саму программу тогда так и пишите и не вводите людей в заблуждение Сообщение от 136191 Помогите и "сделайте за меня" это не одно и то же 0

@136191 0 / 0 / 0 Регистрация: 22.11.2021 Сообщений: 18
	22.11.2021, 17:59 [ТС]	5
	Да, извините, впервые пишу сюда с просьбой 0

@XzzzX 400 / 276 / 119 Регистрация: 09.07.2021 Сообщений: 996
	22.11.2021, 20:56	8
	Сообщение от 136191 Который вы написали программа не читает что это значит? Сообщение от 136191 примерно в таком формате сделать примерно с таким форматом лучше пойти в раздел FPC или турбо. писать тотально устаревшим стилем в разделе PascalABC.Net желания что-то нет совсем 0

Вычислить массив, каждый элемент которого равен удвоенному произведению соответствующих элементов двух первых массивов

Решение