uses Crt;
var
a,b: array [0..49] of integer;
i,j: integer;
begin
Randomize;
for i:=0 to 49 do a[ i ]:=Random(10);
write('a[0]=',a[ 0 ]); for i:=1 to 49 do write(', a[',i,']=',a[ i ]); writeln;
for i:=0 to 49 do if a[ i ]=0 then begin b[ j ]:=i; j:=j+1 end;
if j <> 0 then write(b[ 0 ]);
for i:=1 to j-1 do write(', ',b[ i ]); writeln;
end.

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

17.12.2020, 11:49

Ответы с готовыми решениями:

Перевод кода с Паскаля (перевод в метры)
var a,b,d:integer; c,e:real; begin writeln('1-дециметр 2-километр'); writeln('3-метр ...

Перевод из паскаля на с++
Помогите перевести этот код из Паскаля на плюсы. Есть пара операторов, которые что-то не получается...

Перевод из Паскаля на С++
Ввести строку, в которой записана сумма натуральных чисел, например, «1+25+3». Вычислите это...

Перевод с паскаля на с++
Помогите перевести с паскаля на с++ uses crt; const n:byte = 3; dw = 0.2; type TMatr =...

	17.12.2020, 11:49

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

17.12.2020, 11:49

Помогаю со студенческими работами здесь

Перевод из паскаля в с++
ребятки, спасайте! нивкакую не получаецо перевести программку: Program p32; uses crt; var...

Перевод с Паскаля на c#
Помогите пожалуйста, заранее спасибо) program filer; uses crt; var g,s:real; n,i:integer;...

Перевод с Паскаля на Си
uses crt; const nmax=15; var a:array of real; n,i,j,n1,n2,i1,i2:integer; mx:real;...

Перевод с Паскаля на C++
Нужно перевести программу написаную в Pascal на С/С++ program BinSearch2; const n=10; type...

Перевод с паскаля в C#
Ребят, помогите программку перевести с паскаля на C#. В паскале вообще ничего не понимаю, даже не...

Перевод с Паскаля на Си
помогите пожалуйста . нужно код на СИ перевести( uses crt; type pnode = ^node; ...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Наверх