Функции.

[sv.dooh]

Задана однамерная матрица N-го порядка,содержащая целые числа, каждые из которых занимают 4 позиции. Подсчитать количество единиц и их порядковые номера.

[Lemo]

Пример в студию!

[ROMA2PVT]

Ну и в чём проблема. Так выводим индексы.

if a[i]=1 then write(i,' ');

идентично и количество

if a[i]=1 then inc(kol);

[sv.dooh]

Сообщение от ROMA2PVT

Ну и в чём проблема. Так выводим индексы.

if a[i]=1 then write(i,' ');

идентично и количество

if a[i]=1 then inc(kol);

почти понял но не совсем

[Филантроп]

var i,kol:integer;
a:array[1..100] of integer;
begin
kol:=0;
readln(n);
for i:=1 to n do begin
a[i]:=random(20);
write(a[i]:4);end;
writeln;
for i:=1 to n do
if a[i]=1 then begin write(i,' ');inc(kol);end;
writeln;
writeln(kol);
readln;
end.