pascal delphi - массив

[vanBasnyak]

Приветствую. Ребят, правильна ли задача сделана: в массиве а(5) все элементы которые больше за 10 заменить числом 10 та вычислить количество таких элементов.

Program kilkist;
var a:array[1..5] of real; i, k:integer;
     begin for i:=1 to 5
              begin
                     write ('a[' ,i,']=');
                     readln (a[i]);
                     end;
                           a[i]:=1;
                           for i:=1, to 5 do
                           if a[i]>=10 then a[i]:=10
                           write ('a= ,a'); readln;
                           begin 
                                   k:=0; 
                                   for i:=1, to 5 do
                                    if a[i]>=10 then k:=k+1;
                                   write ('k= ,k'); readln;
                           end;
        end;
end.

посмотрите, если не трудно)


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Dush]

а зачем строка

a[i]:=1;

?

for i:=1, to 5 do
if a[i]>=10 then a[i]:=10
write ('a= ,a'); readln;
begin
k:=0;
for i:=1, to 5 do
if a[i]>=10 then k:=k+1;
write ('k= ,k'); readln;
end;

бред
сделайте все в одном цикле:
for i:=1 to 5 do
begin
здесь вставляете проверку на >10. если правда то
begin
изменить значение в массиве;
увеличить количество
end;
end;
вывести количество

[vanBasnyak]

Dush спасибо!)

ок, оформления запомню.