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

@Drim180 · Регистрация: 07.06.2011

Author24 — интернет-сервис помощи студентам

Задание: Напишите программу, которая вводит с клавиатуры непустой массив целых чисел, заменяет все элементы массива, кроме крайних, на полусумму соседних, и печатает результат. Народ. Помогите пожалуйста.

@Own3D · 24.01.2012, 16:51

сделал набросок, но что то не так маленько, не могу понять в чем косяк. проводил тесты, mas[2] всегда считается верно, а дальше идут какие -то непонятки. посмотри, думаю принцип понятен будет, может найдешь в чем ошибка, или подскажут.

Pascal

uses crt;
const
     n=5;
var
   mas:array[1..n] of real;
   psum:real;
   i:integer;
begin
for i:=1 to n do
    begin
    write('Ââåäèòå mas[',i,']: ');
    readln(mas[i]);
    end;
//--------------------------------
clrscr;
writeln('Èñõîäíûé ìàññèâ:');
for i:=1 to n do
    write(mas[i],'  ');
//--------------------------------
for i:=2 to n-1 do
    begin
    psum:=0;
    psum:=(mas[i-1]+mas[i+1])/2;
    mas[i]:=psum;
    end;
//--------------------------------
writeln;
writeln('Ïîëó÷åííûé ìàññèâ:');
for i:=1 to n do
    write(mas[i],' ');
end.

@Drim180 · 24.01.2012, 18:03 **[ТС]**

Я исправил программу. Теперь она работает нормально.

Pascal

uses crt;
const
     n=5;
var
   mas:array[1..n] of real;
   psum:real;
   i:integer;
   a:array[1..n] of real;
begin
for i:=1 to n do
    begin
    write('Введите mas[',i,']: ');
    readln(mas[i]);
    end;
//--------------------------------
clrscr;
writeln('Исходный массив:');
for i:=1 to n do
    write(mas[i],'  ');
//--------------------------------
for i:=2 to n-1 do
    begin
    psum:=0;
    psum:=(mas[i-1]+mas[i+1])/2;
    a[i]:=psum;
    end;
//--------------------------------
writeln;
writeln('Полученный массив:');
a[1]:=mas[1];
a[5]:=mas[5];
for i:=1 to n do
    write(a[i],' ');
end.

@Puporev · 24.01.2012, 18:26

Pascal

uses crt;
const
     n=5;
var
   mas:array[1..n] of real;
   x,y,z:real;
   i:integer;
begin
for i:=1 to n do
    begin
    write('Введите mas[',i,']: ');
    readln(mas[i]);
    end;
//--------------------------------
clrscr;
writeln('Исходный массив:');
for i:=1 to n do
    write(mas[i],' ');
//--------------------------------
writeln;
x:=mas[1];
y:=mas[2];
for i:=2 to n-1 do
 begin
  z:=mas[i+1];
  mas[i]:=(x+z)/2;
  x:=y;
  y:=z;
 end;
//--------------------------------
writeln;
writeln('Полученный массив:');
for i:=1 to n do
    write(mas[i],' ');
end.

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

Решение

Решение

@Drim180 2 / 2 / 0 Регистрация: 07.06.2011 Сообщений: 37
		1
	Заменить все элементы массива, кроме крайних, на полусумму соседних 24.01.2012, 16:02. Показов 2735. Ответов 3 Метки нет (Все метки) Задание: Напишите программу, которая вводит с клавиатуры непустой массив целых чисел, заменяет все элементы массива, кроме крайних, на полусумму соседних, и печатает результат. Народ. Помогите пожалуйста. 0

	24.01.2012, 18:26