Слайдовая презентация делается в программах PowerPoint и т.д. В слайдовой презентации можно изменять слайды частями.
Потоковая презентация записывается как видео (вроде бы) и смотрится как видео, поэтому чтобы что-то изменить, понадобится перезаписывать видео.
<span><span><span>
1
b
</span><span>
2
e
</span><span>
3
a
</span><span>
4
d
</span><span>
5
c
</span></span></span>
Логическая схема будет выглядеть так:
Program abc;
var a, b, c, max: integer;
begin
read (a, b, c);
if a>b then
a:=max
else
b:=max;
if c>max then
c:=max;
writeln ('Максимальное число__', max);
end.
Второй в один вопрос еще))0).
Var a:array[1..10] of integer;
i,count:integer;
begin
for i:=1 to 10 do begin
a[i]:=1+random(10);
write(a[i],' ');
end;
count:=0;
for i:=1 to 10 do begin
if a[i]=1 then
count:=count+1;
end;
writeln('Кол-во элементов равных единице=', count);
end.