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

[Hunter123]

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

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


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

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

[Hunter123]

HELP

[banana]

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

[Hunter123]

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


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

[0ldbi4]

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.

[0ldbi4]

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

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

[KentPol]

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.

[Hunter123]

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.


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

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


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

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

[h(f)ucker]

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

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

[banana]

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

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


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

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

for i:=1

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

[banana]

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

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

[Thenno]

да и на следуйщую неделю ну нужна будет исчо помощ в програмках таких простеньких
я попожже виложу задание.
А сам не хочешь научится?

[Hunter123]

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

[Hunter123]

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

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


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