АЙ ТИШНИКИ тут? Кто может перевести данный код из паскаля в С++?
const nmax=100; type mas=array[1..nmax] of real; var n,i,kol:integer; z:real; a:mas; begin randomize; repeat write('Vvedite n->'); readln(n); until n>0; for i:=1 to n do begin a:=random*9; write(a:5:1); end; writeln; write('Vvedite chislo Z->'); readln(z); kol:=0; for i:=1 to n do if a>z then begin a:=z; kol:=kol+1; end; if kol=0 then writeln('V massive net el-tov bolshe ',z:0:1) else begin writeln('Poluchenniy massiv:'); for i:=1 to n do write(a:5:1); writeln; writeln('Kol-vo zamen = ',kol); end; readln; end.
>>222859540 (OP) Напиши, лучше, что код делает, чтоб другим анонам не приходилось и разбирать твой код и свой писать. Да и к тому же базовый синтаксис языка минут за 5 выучить можно.
>>222865245 Дана последовательность действительных чисел а1, а2,...,an. Заменить все её члены, больше данного Z, этим числом. Подсчитать количество замен.
Как заработать нихуя не делая гайд: 1 - берём относительно не сложный но дорогой закаказ на фрилансе. 2 - постим задание на двач, просим решить за себя
>>222876772 >>222876881 Блять что за куколды. Вам не жалко, что вас эксплуатировали бесплатно ради собственной денежной наживы? Может тогда сразу мне деньги скинете на карту, раз у вас нет чуточки самоуважения, или это ДРУГОЕ?
>>222876772 >>222876881 Спасибо почаны, бочку нефти вам мне лень гуглить как правильно это говорить. Заказчик принял, деньги получил. В понедельник выведу, бухну за ваше здоровье
const
nmax=100;
type
mas=array[1..nmax] of real;
var
n,i,kol:integer;
z:real;
a:mas;
begin
randomize;
repeat
write('Vvedite n->');
readln(n);
until n>0;
for i:=1 to n do
begin
a:=random*9;
write(a:5:1);
end;
writeln;
write('Vvedite chislo Z->');
readln(z);
kol:=0;
for i:=1 to n do
if a>z then
begin
a:=z;
kol:=kol+1;
end;
if kol=0 then
writeln('V massive net el-tov bolshe ',z:0:1)
else
begin
writeln('Poluchenniy massiv:');
for i:=1 to n do
write(a:5:1);
writeln;
writeln('Kol-vo zamen = ',kol);
end;
readln;
end.