Четверг, 28.03.2024, 15:19
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider  
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » сортировка в двумерном массиве (было бы не плохо получить помощь от опытных программистов.)
сортировка в двумерном массиве
kurochkaДата: Среда, 02.06.2010, 21:12 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 1
[ 0 ]
Статус: Offline
было бы не плохо получить помощь от опытных программистов.
задача: дан двумерный массив W размерности n на m. Расположить столбцы в порядке возрастания произведений элементов этих столбцов, стоящих на нечётных строках.
Решение (с ошибкой):
program sortir_2;
const n=3; m=4;
var W: array[1..N,1..M] of integer;
sum: array [1..N] of integer;
i,j,max,n_max,k: integer;
s: integer;
begin
writeln('vvdite massiv:');
for i:=1 to N do
for j:=1 to M do
readln(W[i,j]);
for i:=1 to N do
begin
for j:=1 to M do
write(W[i,j],' ') ;
writeln;
end;
for j:=1 to M do
begin
s:=1;
for i:=1 to N do
if i mod 2 = 1 then
begin
s:=s*W[i,j];
end;
sum[i]:=s;
end;
if n mod 2=0 then k:=n mod 2
else k:=n mod 2+1;
for i:=1 to k do
write(sum[i],' ');
writeln;
for i:=1 to k-1 do
begin
max:=sum[i];
n_max:=i;
for j:=i+1 to k do
if sum[j]<max then
begin
max:=sum[j];
n_max:=j;
end;
sum[n_max]:=sum[i];
sum[i]:=max;
end;
for i:=1 to k do
write(sum[i],' ');
writeln;
end.
на экран выводит матрицу 2 на 2, со всеми нулевыми элементами.

напишите пожалуйста если найдёте ошибку.

 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » сортировка в двумерном массиве (было бы не плохо получить помощь от опытных программистов.)
  • Страница 1 из 1
  • 1
Поиск:

Copyright MyCorp © 2024