Задание 1. Перерисовываем блок-схему и рядом записываем программу на школьном алгоритмическом языке. - id1139716620211118 от VanekI 18.11.2021 00:57

Question

Информатика: Задание 1. Перерисовываем блок-схему и рядом записываем программу на школьном алгоритмическом языке. Сделайте вывод, что делает данная программа? Задание 2. Перерисовываем кусок блок-схемы, к нему пишем кусок программы соответствующий ей. Сделайте вывод, что делает написанная вами программа данная программа? Задание 3. По программе на школьном алгоритмическом языке, постройте блок схему. Сделайте вывод, что делает написанная вами программа данная программа? алг площадь нач цел а,h, вещ пл вывод

VanekI · Accepted Answer

Если элементы массива идут по возрастанию, то вот так

program wstawka;
uses crt;
const min=1;
max=20;
type zona=min..max;
massiw=array[zona] of integer;
var mas:massiw;
i,j:zona;
a,N,M:integer;
T:boolean;
BEGIN randomize;
clrscr; N:=random(20);
writeln('4ucJlo N = ',N);
M:=random(20); Writeln('4ucJlo M = ',M);
for i:=min to max-2 do
begin
mas[i+1]:=mas[i]+random(5);
write(mas[i],' ');
end;
for i:=min to max-2 do
if (mas[i]>N) and (t=false) then
begin
t:=true;
a:=mas[i];
mas[i]:=N;
for j:=i+1 to max do
begin
N:=mas[j];
mas[j]:=a;
a:=N;
end;
end;
for i:=min to max-1 do
if (mas[i]>M) and (t=true) then
begin
t:=false;
a:=mas[i];
mas[i]:=M;
for j:=i+1 to max do
begin
M:=mas[j];
mas[j]:=a;
a:=M;
end;
end;
writeln;
for i:=min to max do
write(mas[i],' ');
readkey;
END.

MOGZ ответил