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

@Symbian60 · Регистрация: 14.07.2011

Помогите пожалуйста решить задачу

заменить два массива вывести на экран получить третий массив состоящий из среднего значения элементов a и b вывести на экран

@Reveng · 16.12.2012, 22:25

Pascal

const
  nmax = 20;
 
var
  A, B : array [1..nmax] of integer;
  C : array [1..nmax] of real;
  i, n : integer;
 
begin
Randomize;
Repeat
Writeln('Размер массива (не более ', nmax, '): ');
Readln(n);
until n in [1..nmax];
Writeln('Массив А ');
for i := 1 to n do
  begin
  A[i] := random(30) - 10;
  Write(A[i], ' ');
  end;
Writeln;
Writeln('Массив B ');
for i := 1 to n do
  begin
  B[i] := random(30) - 10;
  Write(B[i], ' ');
  end;  
Writeln;
Writeln('Массив C ');
for i := 1 to n do
  begin
  C[i] := (A[i] + B[i])/2;
  Write(C[i]:0:2, ' ');
  end;  
Readln;  
end.

@Symbian60 0 / 0 / 0 Регистрация: 14.07.2011 Сообщений: 5
		1
	Заменить два массива вывести на экран получить третий массив 16.12.2012, 20:30. Показов 1054. Ответов 1 Метки нет (Все метки) Помогите пожалуйста решить задачу заменить два массива вывести на экран получить третий массив состоящий из среднего значения элементов a и b вывести на экран 0

Опции темы

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

Решение