Var ar:array of integer;
z,i,n,o:integer;
begin;
o:=0;
readln(n);
readln(z);
setlength(ar,n+1);
for i:=1 to n do
begin;
readln(ar[i]);
if ar[i]>z then
begin;
inc(o);
ar[i]:=z;
end;
end;
writeln('Array:');
for i:=1 to n do
write(ar[i]:4);
writeln;
writeln('Количество замен=',o);
end.
Ответ:
var
r1, r2, r3: real;
begin
readln(r1, r2, r3);
if (r1>=r2) and (r1>=r3) then
writeln(r1)
else if (r2>=r1) and (r2>=r3) then
writeln(r2)
else
writeln(r3);
end.
Объяснение:
К = 1024 • 768i = 16 битt = 1 секν = 75 ГцI=?I = K • i • ν • tI = 1024 • 768 • 16 • 75 • 1 = 210 • 3 • 28 • 24 • 75 = 225 • 222 (бит) = 225 • 219 (байт) = 225 • 29 (Кбайт) = 112,5 • 210 (Кбайт) = 112,5 (Мбайт)Ответ: 112,5 Мбайт)
Линейный алгоритм состоит из последовательности операций, выполняющихся только один раз в порядке следования.