Решить по икт. 1 заполнителя массив из 10 элементов случайными числами в интервале [-10..10] и выполнить циклический сдвиг вправо. 2 заполнить массив из 10 элементов случайными числами в интервале [0..100) и отсортировать её по возрастанию
begin Randomize; Writeln('Элементы массива'); for i := 1 to n do begin a[i] := Random(21) - 10; Write(a[i]:4); end; Writeln; s := a[n]; for i := n - 1 downto 1 do a[i + 1] := a[i]; a[1] := s; Writeln('После циклического сдвига вправо на 1'); for i := 1 to n do Write(a[i]:4); Writeln end.
Тестовое решение: Элементы массива -2 -1 7 10 2 -7 9 -6 -5 -10 После циклического сдвига вправо на 1 -10 -2 -1 7 10 2 -7 9 -6 -5
Задача 2. const n = 10; var a: array[1..n] of integer; i, j, t: integer;
begin Randomize; Writeln('Исходный массив'); for i := 1 to n do begin a[i] := random(101); Write(a[i]:4) end; Writeln; for i := 1 to n-1 do for j := 1 to n-i do if a[j] > a[j+1] then begin t := a[j]; a[j] := a[j+1]; a[j+1] := t end; Writeln('Отсортированный по возрастанию массив'); for i := 1 to n do Write(a[i]:4); Writeln end.
//Первая var a,b,c:integer;beginread(a,b,c);if a>0 then a:=a*a else a:=a*a*a*a;if b>0 then b:=b*b else b:=b*b*b*b;if c>0 then c:=c*c else c:=c*c*c*c;write(a,' ',b,' ',c);end. //вторая var a,b,c:integer;beginread(a);if(a<100)or(a>999)then write('Заданное число не трехзначное!');if (a>99) and (a<1000)thenbeginb:=a*a;while a<>0 dobeginc:=c + a mod 10;a:=a div 10;end;c:=c*c*c;if c=a then write('Квадрат равен кубу суммы цифр')else write('Квадрат НЕ равен кубу суммы цифр')end;end. //Третья var a:integer;beginread(a);if a=1 then write('Январь');if a=2 then write('Февраль');if a=3 then write('Март');if a=4 then write('Апрель');if a=5 then write('Май');if a=6 then write('Июнь');if a=7 then write('Июль');if a=8 then write('Август');if a=9 then write('Сентябрь');if a=10 then write('Октябрь');if a=11 then write('Ноябрь');if a=12 then write('Декабрь');end.
const
n = 10;
var
a: array[1..n] of integer;
i, s: integer;
begin
Randomize;
Writeln('Элементы массива');
for i := 1 to n do
begin
a[i] := Random(21) - 10;
Write(a[i]:4);
end;
Writeln;
s := a[n];
for i := n - 1 downto 1 do a[i + 1] := a[i];
a[1] := s;
Writeln('После циклического сдвига вправо на 1');
for i := 1 to n do Write(a[i]:4);
Writeln
end.
Тестовое решение:
Элементы массива
-2 -1 7 10 2 -7 9 -6 -5 -10
После циклического сдвига вправо на 1
-10 -2 -1 7 10 2 -7 9 -6 -5
Задача 2.
const
n = 10;
var
a: array[1..n] of integer;
i, j, t: integer;
begin
Randomize;
Writeln('Исходный массив');
for i := 1 to n do
begin
a[i] := random(101);
Write(a[i]:4)
end;
Writeln;
for i := 1 to n-1 do
for j := 1 to n-i do
if a[j] > a[j+1] then
begin t := a[j]; a[j] := a[j+1]; a[j+1] := t end;
Writeln('Отсортированный по возрастанию массив');
for i := 1 to n do Write(a[i]:4);
Writeln
end.
Тестовое решение:
Исходный массив
31 60 14 17 46 6 46 97 60 88
Отсортированный по возрастанию массив
6 14 17 31 46 46 60 60 88 97