составить программу, которая упорядочивает элементы четных строк по возрастанию,а нечетных по убыванию.Матрица размером 8х8.Полученную матрицу напечатать.
10-11 класс
|
var
i,j,k,p:integer;
a:array[1..8,1..8]of integer;
begin
writeln('Исходный массив:');
for i:=1 to 8 do
begin
for j:=1 to 8 do
begin
a[i,j]:=random(20);
write(a[i,j]:3)
end;
writeln
end;
for i:= 1 to 8 do
for j:= 1 to 8 do
for k:= 1 to 8 do
begin
if i mod 2=0 then
begin
if (a[i,j]<a[i,k]) then
begin
p:=a[i,j];
a[i,j] := a[i,k];
a[i,k] := p
end
end
else
if a[i,j] > a[i,k] then
begin
p:=a[i,j];
a[i,j] := a[i,k];
a[i,k] := p
end
end;
writeln('Преобразованный массив:');
for i:=1 to 8 do
begin
for j:=1 to 8 do
write(a[i,j]:3);
writeln
end;
end.
Другие вопросы из категории
1)CXXVIII+ 10001₂
2)206₁₀ - C9₁₆
3)MIV - 143₈
4)238₁₆ -100000₂
5)400₁₆ - CCLVI
6)3764₈ - 12₁₀
элементов данного массива. Вывести три массива.
Читайте также
элементов настоящей таблице х [1 .. 10] на 0.
3.составить программу, замены отрицательного элементов настоящей таблице х [1 .. 10] на их квадрат.
4.составить прогрумму, которая увеличивает на 2 все элементы настоящей таблице х [1 .. 10], которые больше 10.
пересечения прямых, описываемых уравнениями a1x+b1x=c1 и a2x+b2x=c2. Если прямые пересекаются или не существуют-выдать соответствующее сообщение. 2) даны действительные числа a1, b1, a2, b2. Составьте программу, которая определяет, какая из точек A(a1;b1) или B(a2;b2) лежит на прямой у=2х+1. Если такой точки нет-вывести соответсвующее сообщение.
массиве. Результаты сохранить в одномерном массиве и элементы массива отсортировать по возрастанию Даны три одномерных массива. Упорядочить их по возрастанию элементов. Составить программу проверки, сколько раз повторяется заданное число в каждом массиве. Результаты сохранить в одномерном массиве и элементы массива отсортировать по возрастанию
2)Составьте программу которая выводит на экран числа кратные 2 и 13 в диапазоне от 2 до 150
3)Дано вещественное число А и целое число N(>0).Испульзуя один цикл вывести все целые степени числа А от 1 до N
------------------------ОПЕРАТОР WHILE
к
3.составить прогу которая находит индекс последней запятой в введенном тексте