Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

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

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 23.12.2007, 00:16   #1
GhosT3Ds
Новичок
Джуниор
 
Регистрация: 23.12.2007
Сообщений: 1
По умолчанию Нужна помощь в написании программы.

Добрый день. В языке Паскаль не шарю совсем. Требуется написать такую программу и блок схему к ней:
Дана матрица 7х7. В каждой четной строке найти максимальный элемент и образовать из них одномерный массив.
Очень надеюсь на вашу помощь.
GhosT3Ds вне форума   Ответить с цитированием
Старый 23.12.2007, 08:45   #2
kommunist
C# developer
Форумчанин
 
Аватар для kommunist
 
Регистрация: 03.10.2007
Сообщений: 393
По умолчанию

Код:
program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const n = 7;
type matrica = array[1..n,1..n] of integer;
     vector  = array[1..4] of integer;
var
   a:matrica;
   b:vector;
   max:integer;
   i:integer;
   j:integer;
begin
  randomize;
  for i:= 1 to n do
begin
   for j:= 1 to n do
begin
   a[i,j] := random(10);
   write(a[i,j],' ');
end;
    writeln;
end;
    writeln;
    max := 0;
    for i := 1 to n do
begin
for j:= 1 to n do
begin
    if i div 2 = 0
    then
    if max < a[i,j]
    then
    max := a[i,j];
end;

end;
writeln;
  for i:= 1 to 3 do
begin
   b[i] := max;
   write(b[i],' ');
end;
   readln;
end.
I like WPF
kommunist вне форума   Ответить с цитированием
Ответ
Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
нужна помощь в написании программы на ассемблере marsela Помощь студентам 4 25.04.2008 21:42
Нужна помощь в написании программы тестирования на Delphi Vindigo Помощь студентам 2 07.12.2007 18:46