Сумма элементов последовательности.Матрица.

[ettq]

Возникли проблемы при написание данных программок.
1)Заменить все целые элементы последовательности x=2.5;3;3.5...10,5 большие 5,на еденицу.Найти сумму всех элементов последовательности до замены и сумму элементов последовательности после замены.(желательно делаь не через массив).
2)Матрицу целых чисел A[3][3] преобразовали в матрицу B[2][3],исключив из нее 3ий столбец.Надо напечатать обе матрицы.
Буду благодарен если поможете!
Язык:Pascal.
С собственными наработками проблема,они есть,но скорее они помешают чем помогут=)

[Sibedir]

1. Язык?
2. Собственные нароботки?

[Базиля]

С собственными наработками проблема,они есть,но скорее они помешают чем помогут=)

Вот как раз таки твои наработки и не помешают. Из твоих наработок выявим ошибки и ты поймешь откуда они.

[ettq]

Извиняюсь,не заметил.

program summa;
var s,s1,n:real;
begin
n:=2.5;
s:=0;
repeat n:=n+0.5;
until n=10.5;
s:=s+n;
begin
n:=2.5;
s1:=0;
repeat n:=n+0.5;
until n=10.5;
if n>5 then n:=1;
s1:=s1+n;
writeln ('До изменения=',s,'После =',s1);
end;
end.

Последовательность.

[Sibedir]

А что, код текстом выложить никак? (не забываем про #)