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

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

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

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

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 25.03.2015, 16:36   #1
Zahar96
Новичок
Джуниор
 
Регистрация: 24.03.2015
Сообщений: 2
По умолчанию Будьте любезны, помогите с массивом.

Две задачи
1)Дана матрица 5x5. Построить одномерный массив В(5), состоящий из наименьших значений элементов строк.
2) Дана матрица 5х5. Построить одномерный массив В(5), состоящий из средних арифметических элементов строк.

Буду очень признателен
Zahar96 вне форума
Старый 28.03.2015, 12:24   #2
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

1 задача
Код:
var a:array[1..5,1..5] of byte;
    b:array[1..5] of byte;
    i,j,min:byte;
begin
   Randomize;
   For i:=1 to 5 do
   begin
      For j:=1 to 5 do
      begin
         a[i,j]:=Random(21);
         Write(a[i,j],'  ');
      end;
      Writeln;
   end;
   For i:=1 to 5 do
   begin
      min:=a[i,1];
      For j:=2 to 5 do
         If min>a[i,j] then
            min:=a[i,j];
      b[i]:=min;
      Writeln(b[i]);
   end;
   Readln;
end.
2 задача
Код:
var a:array[1..5,1..5] of byte;
    b:array[1..5] of real;
    i,j:byte;
    summ:integer;
begin
   Randomize;
   For i:=1 to 5 do
   begin
      For j:=1 to 5 do
      begin
         a[i,j]:=Random(21);
         Write(a[i,j],'  ');
      end;
      Writeln;
   end;
   For i:=1 to 5 do
   begin
      summ:=0;
      For j:=1 to 5 do
         summ:=summ+a[i,j];
      b[i]:=summ/5;
      Writeln(b[i]:3:2);
   end;
   Readln;
end.
Сойдет?
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума
Старый 05.04.2015, 10:58   #3
Zahar96
Новичок
Джуниор
 
Регистрация: 24.03.2015
Сообщений: 2
По умолчанию

Цитата:
Сообщение от newerow1989 Посмотреть сообщение
1 задача
Код:
var a:array[1..5,1..5] of byte;
    b:array[1..5] of byte;
    i,j,min:byte;
begin
   Randomize;
   For i:=1 to 5 do
   begin
      For j:=1 to 5 do
      begin
         a[i,j]:=Random(21);
         Write(a[i,j],'  ');
      end;
      Writeln;
   end;
   For i:=1 to 5 do
   begin
      min:=a[i,1];
      For j:=2 to 5 do
         If min>a[i,j] then
            min:=a[i,j];
      b[i]:=min;
      Writeln(b[i]);
   end;
   Readln;
end.
2 задача
Код:
var a:array[1..5,1..5] of byte;
    b:array[1..5] of real;
    i,j:byte;
    summ:integer;
begin
   Randomize;
   For i:=1 to 5 do
   begin
      For j:=1 to 5 do
      begin
         a[i,j]:=Random(21);
         Write(a[i,j],'  ');
      end;
      Writeln;
   end;
   For i:=1 to 5 do
   begin
      summ:=0;
      For j:=1 to 5 do
         summ:=summ+a[i,j];
      b[i]:=summ/5;
      Writeln(b[i]:3:2);
   end;
   Readln;
end.
Сойдет?
Спасибо большое, но уже поздно)
Zahar96 вне форума
Старый 05.04.2015, 11:00   #4
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Пожалуйста!
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума
Закрытая тема


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
С++ Школа ( Помогите будьте добры ) Niikola Помощь студентам 9 12.10.2014 23:19
Расшифруйте шифр пароля, будьте любезны Winlook Безопасность, Шифрование 1 31.01.2010 20:12
Очень нужно решить задачи для зачета. Будьте любезны) Александро Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 3 06.01.2010 14:23