Question

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

Answer 1

Program prog;
Uses crt;

var a: array [1..5] of integer;
    i,k: integer;

begin
clrscr;

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

    writeln;
    write('k = ', k);
end.