Полезное:
Как сделать разговор полезным и приятным
Как сделать объемную звезду своими руками
Как сделать то, что делать не хочется?
Как сделать погремушку
Как сделать так чтобы женщины сами знакомились с вами
Как сделать идею коммерческой
Как сделать хорошую растяжку ног?
Как сделать наш разум здоровым?
Как сделать, чтобы люди обманывали меньше
Вопрос 4. Как сделать так, чтобы вас уважали и ценили?
Как сделать лучше себе и другим людям
Как сделать свидание интересным?
Категории:
АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника
|
Листинг программ ⇐ ПредыдущаяСтр 2 из 2 Задача№10 function d(n:integer):integer; var i,a:integer; begin if n=1 then i:=1 {частный случай, если n равно 1} else begin i:=2; while n mod i <> 0 do {поиск наименьшего делителя} i:=i+1; end; d:=i end;
VAR m,i,j,x:integer; a:array[1..1000] of integer;
BEGIN
repeat {ввод кол-ва n} write('m>0 Введите m:'); readln(m); until m>0;
For i:= 1 to m do {заносим в массив рандомные числа n} begin a[i]:= random(1,100); Write(a[i], ' '); end;
Writeln;
for i:=1 to m do {пузырьковая сортровка} for j:=i+1 to m do if d(a[i])>d(a[j]) then
begin x:=a[i]; a[i]:=a[j]; a[j]:=x end;
for i:=1 to m do {вывод нового массива} write(a[i], ' '); END. Задача №31 var a: array[1..100] of integer; {a - целочисленный массив} n, i, j, t: integer;
begin write('Задайте количество элементов массива: '); readln(n); {Задаем размер массива}
writeln('Исходный массив: '); for i:= 1 to n do begin a[i]:= random(100); {Задаем элементам массива случайное значение от 1 до 100} write(a[i], ' '); {Выводим полученные элементы} end;
writeln; for i:= 2 to n do {Цикл от 2 до n (до конца массива)} for j:= n downto i do {Обратный цикл, от n до i. С понижением. (От конца массива до 2.)} if (a[j - 1] mod 10) > (a[j] mod 10) then {Проверяем условие, если последняя цифра элемента j-1 больше последней цифры j-ого элемента, то} begin t:= a[j - 1]; a[j - 1]:= a[j]; {Меняем эти элементы массива с помощью вспомогательной переменной t} a[j]:= t; end;
writeln('Преобразованный массив:'); for i:= 1 to n do write(a[i], ' '); {Выводим отсортированный массив} end.
Приложение Б Распечатка тестов Задача 10
Задача 31
Приложение В Блок-схема алгоритмов Задача 10
|