G Scratch 2?
Малюнку 3.44?
Як віконусться наведений фрагмент алгоритму (мал. 3.46, a)
s! Як виконується наведений фрагмент алгоритму (мал. 3.46, б)
9. Як виконується наведений фрагмент алгоритму (мал. 3.46, в)
10. Як виконується наведений фрагмент алгоритму (мал. 3.46, г)
не на
10
—
Тему
перва 20
б)
в)
г)
Мал. 3.46. Вкладені цикли і розгалуження в Scratch 2
//Pascal ABC.NET 3.1 сборка 1219
Var
f:text;
max,min,p:real;
maxn,minn,n,i:integer;
ar:array of real;
s:string;
begin
max:=real.MinValue;
min:=real.MaxValue;
n:=0;
assign(f,'text.txt');
reset(f);
while not(Eof(f)) do
begin
read(f,p);
inc(n);
setlength(ar,n);
ar[n-1]:=p;
if ar[n-1]>max then
begin
max:=ar[n-1];
maxn:=n-1;
end;
if ar[n-1]<min then
begin
min:=ar[n-1];
minn:=n-1;
end;
end;
close(f);
swap(ar[minn],ar[maxn]);
for i:=0 to n-1 do
if i<>n-1 then s:=s+floattostr(ar[i])+' '
else
s:=s+floattostr(ar[i]);
rewrite(f);
write(f,s);
close(f);
end.
Пример содержимого text.txt:
0 -2.1 1.1
Пример содержимого text.txt после работы программы:
0 1.1 -2.1