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

@zedrot56 · Регистрация: 13.10.2012

Даны два массива Ak и Bk размера N. Сформировать третий массив Ck, элементы которого получаются путем сложения соответствующих элементов массива Ak и Bk. Отсортировать массив Ck по возрастанию и найти минимальный элемент.

Kodzaev · 13.10.2012, 10:04

Pascal

Uses crt;
Var
  a,b,c: Array[1..100] of Integer;
  n,k,j,tmp,min: Integer;
BEGIN
Clrscr;
Writeln('Введите кол-во элементов: '); Readln(n);
For k:=1 to n do
begin
  a[k]:=Random(50);
  b[k]:=Random(50);
end;
Writeln('1 массив:');
For k:=1 to n do
Write(a[k],' ');
Writeln;
Writeln('2 массив:');
For k:=1 to n do
Write(b[k],' ');
Writeln;
Writeln('3 массив:');
For k:=1 to n do
begin
  c[k]:=a[k]+b[k];
  Write(c[k],' ');
end;
For k:=n-1 downto 1 do
For j:=1 to n-1 do
If c[j]>=c[j+1] Then
begin
  tmp:=c[j];
  c[j]:=c[j+1];
  c[j+1]:=tmp;
end;
min:=10000;
Writeln;
Writeln('Отсортированный массив:');
For k:=1 to n do
begin
  Write(c[k],' ');
  If c[k]<min Then min:=c[k];
end;
Writeln;
Writeln('Минимальный элемент: ',min);
Readln
END.

@zedrot56 2 / 2 / 0 Регистрация: 13.10.2012 Сообщений: 15
		1
	Сформировать третий массив, элементы которого получаются сложением соответствующих элементов исходных 13.10.2012, 09:53. Просмотров 1690. Ответов 1 Метки нет (Все метки) Даны два массива Ak и Bk размера N. Сформировать третий массив Ck, элементы которого получаются путем сложения соответствующих элементов массива Ak и Bk. Отсортировать массив Ck по возрастанию и найти минимальный элемент. 2

Опции темы

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

Решение