Дан массив, заполненный случайными целыми числами в диапазоне от -30000 до 30000. Напишите подпрограмму, отсортирует элементы массива по возрастанию количества цифр кратных трем в числе (дополнительный массив не использовать).
Например из массива: 1 22 33 4444 533 36, получим 1 22 4444 33 533 36.
Размер массива заранее задан константой N. Используйте заголовок:
procedure sort(var m: TMas);
Тип ТMas задан как array[1..N] of longint и может использоваться для описания параметров подпрограмм.
Используйте сортировку методом простого обмена ("пузырек").
Answer:(penalty regime: 0 %)
Ответы на вопрос:
Дан массив, заполненный случайными целыми числами в диапазоне от -30000 до 30000.
Напишите подпрограмму, меняет местами левую и правую половины массива (дополнительный массив не использовать).
Например из массива: 1 2 3 4 5 6, получим 4 5 6 1 2 3.
Размер массива заранее задан константой N (четное число). Используйте заголовок:
procedure perest(var m:TMas);
Тип ТMas задан как array[1..N] of integer и может использоваться для описания параметров подпрограмм.
0
Объяснение:
Program AmongUs;
var x,a,b,c,d:integer;
begin
write('x=');readLn (x);
a:=x div 1000;
b:=x div 100 mod 10;
c:=x div 10 mod 10;
d:=x mod 10;
x:=d*1000+c*100+b*10+a;
writeLn('новое число=',x)
end.
Объяснение:
1) var x,a,b,c,d:intener; - неправильно написан тип данных (меняем intener на integer)
2) writeLn('новое число'=,x,) - неправильно стоит кавычка для вывода текста (переносим ' за = )
3) writeLn('новое число'=,x,) - лишняя запятая после x (убираем)
Популярно: Информатика
-
shamahuligam00712.08.2021 04:27
-
joom328.10.2020 21:21
-
кириешка520.05.2020 19:34
-
Ви2006ка16.02.2021 22:55
-
phannastarichenko02.09.2020 00:49
-
dVioletta30.08.2020 20:50
-
ilonamoon200018.10.2021 06:15
-
golubevaleshka05.10.2022 08:18
-
denis2004360106.01.2021 07:57
-
sandraustaow6o7c14.05.2023 03:43