Дан массив состоящий из 8 элементов , отсортировать его по возрастанию
5-9 класс
|
var
A: array[1..8] of integer;
i,k,t:integer;
begin
for i:=1 to 8 do
Readln(A[i]);
for k:= 8 downto 2 do
begin
for i:=1 to k-1 do
begin
if A[i+1] < A[i] then
begin
t:=A[i];
A[i]:=A[i+1];
A[i+1] := t;
end;
end;
end;
for i:=1 to 8 do
Write(A[i],' ');
readln;
end.
Другие вопросы из категории
паскале исправьте ошибки пожалуйста.
program zadacha;
var a:array [1..100] of integer;
i,n,b,c:integer;
s: real;
begin
write('кол. элементов');
readln(n);
write('элементы массива');
for i:=1 to n do
readln(a[i]);
write('b=');
readln(b);
write('c=');
readln(c);
s:=sqrt(c)+sqrt(b);
n:=n+1;
for i:=n downto n+1 do
a[i]:=a[i-1];
a[n]:=s;- вот не правильно
for i:=1 to n do
write(a[i]:6)
end.
человека вводится с клавиатуры
Читайте также
Найти сумму элементов данного массива.
2. Заполнить одномерный массив, состоящий из 10 элементов, случайными числами от-15 до 35.
Найти значение максимального элемента массива.
от -100 до 100. Определить минимальное положительное число.
2) Дан массив, состоящий из 10 чисел. Найдите номера тех элементовв масива, которые наименее различаются.
2. Создать массив A из 10 элементов, заполненный случайным образом числами принадлежащих промежутку (0;20). Вывести полученный массив на экран. Вычислить количество элементов массива, значения которых не превышают среднее арифметическое значений его элементов.
типа. Ввод организуйе без использования цикла 2) разработайте алгоритм для ввода в память ЭВМ одномерного массива С состоященр из 7 элементов целого тип. Ввод организуйе с исползованием цикла "ДЛЯ". 3) разработайте алгоритм для ввода в память ЭВМ одномерного массива Д состоящего из 10 элементов целого типа. Каждый элемнт вычислите по формуле: значение элемента равно квадрату его индекса