Добавлена поддержка
ЭЧ/Ech (ex-Escapechan) и Ежчана (
ejchan.net,
ejchan.site). Набегаем, тестируем архивацию,
сообщаем о замеченных проблемах.
К сожалению, значительная часть сохранённых до 2024 г. изображений и видео была потеряна (
подробности случившегося). Мы призываем всех неравнодушных
помочь нам с восстановлением утраченного контента!
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.