Составьте программу,которая заполняет массив a[1..10] случайными числами в диапазоне от 0 до 10,затем первый элемент меняет местами с максимальным элементом.выведите на экран исходный и полученный массивы.
Uses crt; const n=10; var a:array[1..n] of integer; i,max,k:integer; begin randomize; for i:=1 to n do begin a[i]:=random(10); write(a[i],' '); end; writeln; max:=-1; for i:=1 to n do if a[i]>max then begin max:=a[i]; k:=i; end; a[1]:=a[1]+a[k]; a[k]:=a[1]-a[k]; a[1]:=a[1]-a[k]; for i:=1 to n do write(a[i],' '); end.
Дважды подряд записать трехзначное число — это значит умножить его на 1001. Умножив на 1000, мы получаем исходное число с тремя нулями. Добавляем к полученному числу еще один раз исходное число. Получается число, в записи которого дважды повторяются цифры исходного числа. Последовательно разделить на 13, 11 и 7 – значит разделить число на произведение 13 * 11* 7, которое равно 1001. Получается, что мы число сначала умножаем на 1001, а после делим на 1001. Естетственно, у нас получится исходное число: (n * 1001) / (13 * 11 * 7) = (n * 1001) / 1001 = n.
Дважды подряд записать трехзначное число — это значит умножить его на 1001. Умножив на 1000, мы получаем исходное число с тремя нулями. Добавляем к полученному числу еще один раз исходное число. Получается число, в записи которого дважды повторяются цифры исходного числа. Последовательно разделить на 13, 11 и 7 – значит разделить число на произведение 13 * 11* 7, которое равно 1001. Получается, что мы число сначала умножаем на 1001, а после делим на 1001. Естетственно, у нас получится исходное число: (n * 1001) / (13 * 11 * 7) = (n * 1001) / 1001 = n.
const n=10;
var a:array[1..n] of integer;
i,max,k:integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(10);
write(a[i],' ');
end;
writeln;
max:=-1;
for i:=1 to n do
if a[i]>max then begin max:=a[i]; k:=i; end;
a[1]:=a[1]+a[k];
a[k]:=a[1]-a[k];
a[1]:=a[1]-a[k];
for i:=1 to n do
write(a[i],' ');
end.