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

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

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

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

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

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

Добрый день. В языке Паскаль не шарю совсем. Требуется написать такую программу и блок схему к ней:
Дана матрица 7х7. В каждой четной строке найти максимальный элемент и образовать из них одномерный массив.
Очень надеюсь на вашу помощь.
GhosT3Ds вне форума Ответить с цитированием
Старый 23.12.2007, 07: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 вне форума Ответить с цитированием
Ответ


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

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

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


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