Const n = 10; var mas:array [1..n] of integer; i,x,j,a,b,index:integer; begin write('Введите диапазон от a до b: '); readln(a,b); for i:= 1 to n do begin mas[i]:=Random(b-a+1)+a; end; writeln('Полученный массив: '); for i:= 1 to n do write(mas[i]:4); for i:=n downto 1 do if mas[i]>0 then begin index:=i; break end; mas[index]:=mas[2]; writeln; writeln('Результат выполнения задания: '); for i:= 1 to n do write(mas[i]:4); readln end.
Введите диапазон от a до b: 10 40 Полученный массив: 25 13 38 31 39 12 16 11 26 33 Результат выполнения задания: 25 13 38 31 39 12 16 11 26 13
cleopatra1959
09.12.2020
Информатика - наука об информации и автоматизации информационных процессов. Информация - это новости, новые факты, знания про объекты и явления окружающей среды. Компьютер - устройство или система выполнять заданную чётко определённую изменяемую последовательность операций. Файл - это упорядоченная совокупность данных на внешнем носителе которая имеет имя которое операционная система обрабатывает как единое целое. Текстовой редактор - это самостоятельная компьютерная программа или компонент программного комплекса. Графический редактор - это программа позволяющая создавать, просматривать, обрабатывать и редактировать цифровые изображения на компьютере.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Використання туманних технологій в сучасному житті. До ть будь ласка нада
var
mas:array [1..n] of integer;
i,x,j,a,b,index:integer;
begin
write('Введите диапазон от a до b: ');
readln(a,b);
for i:= 1 to n do
begin
mas[i]:=Random(b-a+1)+a;
end;
writeln('Полученный массив: ');
for i:= 1 to n do
write(mas[i]:4);
for i:=n downto 1 do
if mas[i]>0 then
begin
index:=i;
break
end;
mas[index]:=mas[2];
writeln;
writeln('Результат выполнения задания: ');
for i:= 1 to n do
write(mas[i]:4);
readln
end.
Введите диапазон от a до b: 10 40
Полученный массив:
25 13 38 31 39 12 16 11 26 33
Результат выполнения задания:
25 13 38 31 39 12 16 11 26 13