Цитата:
Сообщение от Tusha-kutusha
Решите пожалуйста две задачи по Pascal не понимаю я как их делать весь инет обшарил ни чиго подобного не нашел препод помогать не хочет
1)Дан массив A(N) (N— четное). Сформировать массив B(M), элементами которого являются средние арифметические соседних пар рядом стоящих в массиве А чисел. (Например, массив А состоит из элементов 1; 3; 5; -2; 0; 4; 0; 3. Элементами массива В будут 2; 1,5; 2; 1,5).
|
Код:
CONST
N=5;
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.
Естественно, константу N (в программе N - это
половина длины исходного массива) можно заменить. Как и формат вывода.