24 декабря 2023 г. Архивач восстановлен после серьёзной аварии. К сожалению, значительная часть сохранённых изображений и видео была потеряна.
Подробности случившегося. Мы призываем всех неравнодушных
помочь нам с восстановлением утраченного контента!
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.