Лучше не закачивай по своему опыту знаю. Сначала там все просто идеально, а потом комп выходит из строя и начинает открывать вкладки сам.
Ответ тут на фото там под колоной нужной ответ
Ответ:
329, 9 и -1
Объяснение:
Потому что 1,21; √5 являются дробными числами.
√5 = 2,23 (приблизительное значение)
const
n=10;
var
a:array [1..n] of real;
z,i,k:integer;
begin
for i:=1 to n do
begin
write ('A[',i,'] = ');readln(a[i]);
end;
write ('Z = ');readln(z);
for i:=1 to n do
if a[i]>z then begin
a[i]:=z;
k:=k+1;
end;
for i:=1 to n do
if frac(a[i])=0 then write (a[i]:0:0,' ') else write (a[i]:0:1,' ');
writeln ('Kol-vo zamen: ',k);
readln;
end.