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

[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 18:17

[Ozzя]

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