turbo PASCAL помогите з масивами
 

помогите з програмкой з однивимерними массивами.
не могу понять ни как.
Знаю што програмка простенькая.....

Підрахувати кількість та вивести індекси нульових елементів


начало прграмми. (точно не знаю ли правильное начало)

Program hfafajh;
var i:integer P:real;
begin
for:=1 to 10 do begin
writeln ('xc'.i.'y') Readln(x[i];
end;
i:=1 , R:=1
while i <=1
begin if

HELP

Скажи чо надо сделать только по-русски. Ибо не понимаю украинский

Подсчитать количество и вывести индексы нулевых элементов

Program array;
var i:integer; nulls:string;
begin
for:=1 to 10 do begin
writeln ('xc' + i + 'y') Readln(x[i]);
if x[i]=0 then nulls:=nulls+' 'intostr(x[i]);
writeln('Nell elevents:');
writeln(nulls);
end;
end.

Не забудь массив заполнить.

И кста форум находится в доменной зоне .ru не мог бы ты впредь писать на русском, а то затруднительно читать, надеюсь ты понимаешь меня..

program z1;
var A:array[1..100] of integer;
i,n:byte;
begin
readln(n);
for i:=1 to n do
readln(A[i]);
for i:=1 to n do
if A[i]=0
then write(i:3);
end.

спасибо.
у меня штото

"for:=1" to 10 do begin - здесь ерор в чем может бить проблема ?


да и на следуйщую неделю ну нужна будет исчо помощ в програмках таких простеньких
я попожже виложу задание. И за робучую прогу будет вознаграждение. в розмере 0.50 вмз (или простенький дедик). Мало но всеже....

пс. извините меня за Русский.

Элементу какому нибудь присвой его
Например так
for z:=1 to 10 do begin

И в var не забуть z описать

for i:=1

Так трудно почитать строение циклов? =/ . А насчет 0.5 WMZ - забей :)