Работа с массивами (pascal)

[aiktz]

1. Написать программу размещения элементов заданного вектора в обратном порядке (без использования дополнительного массива).

program dux;
uses crt;
const n=5;
var
i:integer;
c:real;
a:array [1..n] of real;
begin
clrscr;
for i:=1 to n do
begin
write('a[', i,']=');
readln(a[i]);
end;
for i:=1 to n do
c:=a[i];
a[i]:=a[n-i+1];
a[n-i+1]:=c;
write(a[i]:5:1);
readln(a[i]);
end.

2.Найти среднее арифметическое элементов заданного вектора, лежащих в заданном диапазоне.

program dux;
uses crt;
const n=5;
var
i:integer;
l,m,s,k:real;
a:array [1..n] of real;
begin
clrscr;
s:=0;
k:=0;
for i:=1 to n do
if l>=a[i] and a[i] <= m then
begin
S:=S+a[i];
k:=k+1;
end;
S:=S/k;
{вывод среднего арифметического}
writeln(s);
readln;
end.

[Sazary]

Первая:

program dux;
uses crt;
const n=5;
var
i:integer;
c:real;
a:array [1..n] of real;

begin
clrscr;
for i:=1 to n do
 begin
 write('a[', i,']=');
 readln(a[i]);
 end;
for i:=1 to (n div 2) do
 begin
 c:=a[i];
 a[i]:=a[n-i+1];
 a[n-i+1]:=c;
 end;
for i:=1 to n do
 write(a[i]:5:1);
readln;
end.

Во второй вы не вводите ни вектор, ни диапазон.

И код заключайте в тег CODE!

[Serge_Bliznykov]

в перестановке:
1) забыты begin .. end
2) надо менять местами только ПОЛОВИНУ элементов.
(положите на столе пять карточек и меняйте их по очередно.. сами всё поймёте )
3) при замене не получится сразу же и выводить массив.

т.о. замените кусок перестановки на:

for i:=1 to (n div 2) do
begin
  c:=a[i];
  a[i]:=a[n-i+1];
  a[n-i+1]:=c;
end;

for i:=1 to n do
  write(a[i]:5:1);
readln; {это просто для остановки программы.
 программа ждёт, пока мы нажмём Enter,
 чтобы мы насладились результатами, 
  выведенными на экран}

[Serge_Bliznykov]

Sazary, хоть на минутку, а всё равно опередили меня
Обратите внимание на внесённые исправления! Буквально байт в байт! :-)

[Sazary]

Serge_Bliznykov,
Даже добавить нечего )

[aiktz]

спасибо Вам огромное!!!!!

а как со вторым быть?

[Sazary]

Сообщение от aiktz

а как со вторым быть?

Сказал же! Вы не вводите ни вектор, ни диапазон. Работаете с пустотой.

[XuTpbIu]

Просто сделайте внчале:

readln(l, m);

[Sazary]

Сообщение от XuTpbIu

Просто сделайте внчале:

readln(l, m);

А массив, по-вашему, сам заполнится?

[XuTpbIu]

Эхх... конец рабочего дня
значит вначале надо:

randomize;
readln(l, m);
for I := 1 to N do
  a[I] := random(9);// к примеру