Паскаль Массивы

[Просто человек]

задача 1 (код для примера если не сложно)

что не правильно?

Program desyt;
var a: array [1..10] of integer;
    c, n: integer;
begin
    writeln('элементы массива?');
    for c := 1 to 10 do read(a[c]);
    for c := 1 to 10 do if (a[c] mod 3) = 0 then inc(n);
    writeln('кратных трем: ', n);
end.

[Stilet]

что не правильно?

Да все вроде верно...
Я бы только в начало дописал n:=0; и readln; в конец, чтоб консоль не закрывалась.

[Просто человек]

Вот исправил и работает)

Program desyt;
var a: array [1..10] of integer;
    c, n: integer;
begin
    writeln('элементы массива?');
    for c := 1 to 10 do begin write('a[',c,']='); 
    read(a[c]);
    end;
    for c := 1 to 10 do if (a[c] mod 3) = 0 then inc(n);
    writeln('кратных трем: ', n);
end.

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

Модератор.

[Poma][a]

инициализируй n