2.Программа - это А)это описание на специальном компьютерном языке очередности действий, которые необходимо - id1607817520200808 от VladimirOwl 08.08.2020 14:04

Question

Информатика: 2.Программа - это А)это описание на специальном компьютерном языке очередности действий, которые необходимо выполнить над данными, чтобы испольнять поставленную задачу. Б)это это набор программ, которые управляют компонентами вычислительной системы, такими как процессор, коммуникационные и периферийные устройства. В)это программы, обеспечивающие выполнение конкретных задач пользователя на компьютере​

VladimirOwl · 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 ответил