Написать программку которая вводит с клавиатуры одномерный массив из 10 целых

Написать программку которая вводит с клавиатуры одномерный массив из 10 целых чисел после чего выводит количество ненулевых элементов. Перед вводом каждого элемента обязана выводиться подсказка с номером элемента

ПОМОГИТЕ ПОЖАЛУЙСТА ОЧЕНЬ Безотлагательно!!!!!

Задать свой вопрос
1 ответ
Const n=10;
var a: array[1..n] of integer;
k,i: integer;
begin
k:=0;
for i:=1 to n do
begin
writeln('элемент', i);
readln(a[i]);
if a[i] lt;gt; 0 then k:=k+1
end;
writeln(k)
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт