Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 27.10.2011, 12:45   #1
#Wolf#
Новичок
Джуниор
 
Регистрация: 22.04.2009
Сообщений: 1
По умолчанию задача по матрице (Delphi)

Помогите пожалуста написать программу.
С помощью генератора случайных чисел сформировать матрицу 7*7 целостных элементов, которые лежат в диапозоне [70..120]. В строках с нечетными номерами провести сортировку элементов по убыванию значений.Программу построить с использованием процедур и функций.

я немного начал делать...
program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;
type
matr=array [1..7,1..70] of integer;
procedure vvod(var a:matr);
var i,j:integer;
begin
for i:=1 to 7 do
for j:=1 to 7 do
readln(a[i,j]);
end;
procedure out(var a:matr);
var i,j:integer;
begin
for i:=1 to 7 do
for j:=1 to 7 do
write('a[',i,',',j,']= ');
end;
#Wolf# вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задача на исключение строк в матрице DRAG Помощь студентам 11 20.04.2011 21:31
задача по матрице myrka Помощь студентам 1 02.04.2011 04:09
Задача по матрице manoichi Помощь студентам 1 18.12.2010 12:06
Задача по матрице dima768 Помощь студентам 4 03.04.2009 23:41