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

@Klark73 · Регистрация: 30.03.2011

Даны два одномерных массива одинаковой длины. Получить третий массив такой же размерности, каждый элемент которого равен сумме соответствующих элементов данных массивов, умноженной на больший из них.

@Высокий · 19.04.2011, 15:07

А что если элементы равны?

Pascal

uses crt;
type mas = array[1..256] of integer;
var A,B,X: mas;
    i,j,k: integer;
begin clrscr;
randomize;
write('Введите длину массива: ');
readln(j);
k:=1;     {на случай, если соотв. элементы равны}
for i:=1 to j do begin  {задаем массивы}
   A[i]:=random(100);         {А}
   B[i]:=random(100);          {В}
   if A[i]>B[i] then k:=A[i] else    {находим наибольший из двух элементов}
     if B[i]>A[i] then k:=B[i];
   X[i]:=(A[i]+B[i])*k;     {задаем массив Х}
end;
{Вывод массивов}
write('Массив А: ');
for i:=1 to j do write(A[i]:6);
writeln; write('Массив B: ');
for i:=1 to j do write(B[i]:6);
writeln; write('Массив X: ');
for i:=1 to j do write(X[i]:6);
readkey
end.

@Klark73 2 / 2 / 0 Регистрация: 30.03.2011 Сообщений: 66
		1
	Получить третий массив, каждый элемент которого равен сумме соответствующих элементов исходных массивов, умноженной на больший из них 19.04.2011, 14:40. Показов 2467. Ответов 1 Метки нет (Все метки) Даны два одномерных массива одинаковой длины. Получить третий массив такой же размерности, каждый элемент которого равен сумме соответствующих элементов данных массивов, умноженной на больший из них. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

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

Решение