Помогите плиз, надо решить а я не понимаю ни чего в паскале( - Форум
Понедельник, 05.12.2016, 07:24
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Помогите плиз, надо решить а я не понимаю ни чего в паскале(
Помогите плиз, надо решить а я не понимаю ни чего в паскале(
LenOKДата: Вторник, 02.02.2010, 20:41 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 1
[ 0 ]
Статус: Offline
Для двумерного массива 10 на 15 целочисленных положительных элементов в диапазоне до 100 переставить местами строки с четными и нечетными номерами.
 
LoremasterДата: Среда, 03.02.2010, 10:43 | Сообщение # 2
Генерал-майор
Группа: Участник
Сообщений: 45
[ 3 ]
Статус: Offline
Code
program SwapMatrixLines;

{$APPTYPE CONSOLE}

uses
   SysUtils;

var
      matrix: array[1..10, 1..15] of integer;
      i, j, t: integer;
begin
      randomize;

      writeln('Initial matrix:');
      for i := 1 to 10 do
      begin
           for j := 1 to 15 do
           begin
                matrix[i, j] := random(100) + 1;
                write(matrix[i, j]:3, ' ');
           end;
           writeln;
      end;

      for i := 1 to 10 do
      begin
           if ((i + 1) mod 2 = 0) then
                for j := 1 to 15 do
                begin
                     t := matrix[i, j];
                     matrix[i, j] := matrix[i + 1, j];
                     matrix[i + 1, j] := t;
                end;
      end;

      writeln;
      writeln('Modified matrix:');
      for i := 1 to 10 do
      begin
           for j := 1 to 15 do
           begin
                write(matrix[i, j]:3, ' ');
           end;
           writeln;
      end;
      readln;
end.
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Помогите плиз, надо решить а я не понимаю ни чего в паскале(
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016