Одномерный массив, Задача одномерный массив Опции

[sweet angel]

Помогите пожалуйста решить задачу на Паскале!
Даны натуральное число n, целые числа A1, ..An. Заменить все, большие 7, элементы последовательности числом 7. Вычислить количество таких элементов.
Вот, я пыталась:

var
i: Integer;
c: Integer;
A: array[1..100] of Integer;
begin
c :=0;
for i := 1 to n do
begin
if (A[ i ]>7) then
begin
A[ i ] := 7;
c := c+1;
end;
end;
writeln( c );
end;

Но ничего не получилось (

Сообщение отредактировано: volvo - 16.12.2009 22:17

[sheka]

Во-первых вы говорите об одномерном массиве, А описываете двумерный.

[volvo]

А описываете двумерный.

С чего бы это он был двумерный?

Автору: Тегами пользуйся, без них код нечитаемый...

Добавлено через 1 мин.

Но ничего не получилось (

Хинт: Чему равно N перед входом в цикл?

[sweet angel]

С чего бы это он был двумерный?

Автору: Тегами пользуйся, без них код нечитаемый...

Добавлено через 1 мин.
Хинт: Чему равно N перед входом в цикл?

N - любое натуральное число, которое нужно ввести

write (vvedite n=')
readln (n);

[volvo]

В таком случае приводи программу полностью, а не кусками... Восстанавливать ее по отрывочным сведениям никому не надо, кроме тебя...

[sweet angel]

То, что у меня написано, возможно не правильно, просто может кто-то с условия смог бы решить задачу

[Ozzя]

Подсчет написан верно.
1. Ввод n поставь перед циклом.
2. До него поставь заполнение массива конкретными значениями.