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

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

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


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

Program hfafajh;
var i:integer P:real;
begin
for:=1 to 10 do begin
writeln ('xc'.i.'y') Readln(x;
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);
if x=0 then nulls:=nulls+' 'intostr(x);
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);
for i:=1 to n do
if A=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 - забей

 

Нулевые элементы это в смысле ячейка массива равна нулю?

Если да, то
Program lol;
uses crt;
var a:array [1..5];
i,temp:integer;
begin
clrscr;
Randomize;
For i:=1 to 5 do
A:=random(10);
Writeln ('Indexi nulevih elementov: ');
If a:=0 then begin
Temp:=Temp+1;
Writeln (i):3;
end
Writeln ('Nulevih elementov : ',Temp);
end.

 

А сам не хочешь научится?

 

я вот хочу но не понимаю. Может порадите простую какуюто книгу...или исчо штото ???

 

нет не то но спасибо буду знать.