Дана матрица A порядка n. Расставьте элементы строк с четными номерами матрицы в порядке убывания

@budushii proger · Регистрация: 21.11.2015

Дана матрица A порядка n. Расставьте элементы строк с четными номерами матрицы в порядке убывания.Нужна помощь

@Джейкоб Фрай · 29.12.2015, 16:55

Pascal

program pas;
const n=5;
var a:array[1..n] of integer;
 
procedure zap; {Заполняем масив}
begin
randomize;
for i:=1 to n do a[i]:=random(100);end;
 
procedure viv; {Вывод}
begin
for i:=1 to n do write(a{i}:3);
writeln;
end;
 
procedure sort; {Сортируем четные номера}
var f:boolean;
begin
repeat;
f:=true;
i:=2;
while i<=n do begin
if a[i]<a[i+2] then 
begin
l:=a[i];
a[i];=a[i+2];
a[i+2]:=j;
f:=false;
end;
i:=i+2;
end;
until f;
end;
 
 
begin
zap;
viv;
sort;
viv;
end.

Извиняюсь если есть ошибки

@budushii proger 1 / 1 / 0 Регистрация: 21.11.2015 Сообщений: 30
		1
	Дана матрица A порядка n. Расставьте элементы строк с четными номерами матрицы в порядке убывания 28.12.2015, 16:23. Показов 1318. Ответов 1 Метки нет (Все метки) Дана матрица A порядка n. Расставьте элементы строк с четными номерами матрицы в порядке убывания.Нужна помощь 0

Опции темы

Дана матрица A порядка n. Расставьте элементы строк с четными номерами матрицы в порядке убывания

Решение