И как я писал, что никак нельзя изменить длину массива, мы получаем что в конце два одинаковых элемента. И по-этому выводим элементы все, кроме последнего и у нас получается желаемый результат ( [3,7,22,0,-5] ) Конечно, я написал алгоритм, то что быстрее в голову пришло, возможно есть что-то получше

Добавлено (2010-11-21, 8:27 PM)
---------------------------------------------
я поняла как переписываем, просто там второй цикл до N-1

program bugaga;
const N=10;
var m,i: Integer;
а: array[1..N] 0f Real;

BEGIN
for i:=1 to N do readln(a[i]);
writeln('Введите значение m');
for i:=m to N-1 do a[i]=a[i+1];

for i:=1 to (N-1) do writeln(a[i]);

END.
Это решение считать верным

BEGIN
for i:=1 to N do
for j:=1 to N do readln(a[i]);

for i:=1 to N do
for j:=(i+1) to N do
if a[i,j]>max then max=a[i,j];

writeln(max);
END.

1. Формулировка задания
В двумерном массиве А (4x4) заменить все 1 на 0. Вывести новый массив.

2. Псевдокод
1. Для i = 1,4,1 и j = 1,4,1
1.1. Ввод aij.
2. Для i =1,4,1 и j =1,4,1 повторить
2.1. ЕСЛИ aij = 1, ТО aij = 0
3. Для i = 1,4,1 и j = 1,4,1
3.1. Вывод aij.
4. Конец.

Добавлено (2010-12-03, 6:49 PM)
---------------------------------------------
я сдала на 5 ......!!!

СПАСИБО ВАМ ОГРОМНОЕ!!!!!!!!!

Добавлено (2010-12-03, 6:50 PM)
---------------------------------------------
а СМОЖЕТЕ МНЕ ЕЩЁ ПОМОЧЬ??!!! пожалуйста....

Мне нужно составить программу в PascalABC, которая показывала бы какой-нибудь очень клёвый..сложный рисунок...графику в общем...=)