Среднее арифметическое соседних пар ряда стоящих в массиве
Дан массив A(N) (N— четное). Сформировать массив B(M), элементами
которого являются средние арифметические соседних пар рядом стоящих в
массиве А чисел.
Пример:
Решение:
Program massiv1;
const n=4;
var
A: array [1..2*N] of real;
B: array[1..N] of real;
i:integer;
BEGIN
For i:=1 to 2*N do
begin
Write('A[',i:2,']= ');
ReadLn(A[i]);
end;
Writeln;
For i:=1 to N do
B[i]:=(A[2*i-1]+A[2*i])/2;
For i:=1 to 2*N do
Write(A[i]:6:2);
Writeln;
Write(B[1]:9:2);
For i:=2 to N do
Write(B[i]:12:2);
Writeln;
Readln;
END.
|
| Категория: Массивы | Добавил: deespe (01.02.2011)
|
| Просмотров: 2036
| Рейтинг: 5.0/1 |
|
