Технический форум купить трафик таргетированный
Вернуться   Технический форум > Программирование > Форум программистов > Delphi, Kylix and Pascal


Ответ
 
Опции темы Опции просмотра
Старый 19.12.2016, 10:30   #1 (permalink)
kat.l.a
Новичок
 
Регистрация: 19.12.2016
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Массив-матрица

Задан вектор из A элементов и матрица размерностью O*P. В двумерном массиве умножить те элементы, кот имеют четную сумму индексов и превосходят ср арифм значение элементов вектора
kat.l.a вне форума   Ответить с цитированием

Старый 19.12.2016, 10:30
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Имеет смысл обратить внимание на схожие топики

HELP массив-матрица
Матрица
Дана квадратная матрица А из N элементов. Получить из нее одномерный массив, язык C++
Паскаль. Матрица. Массив
Массив и матрица

Старый 19.12.2016, 10:35   #2 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 24,725
Сказал(а) спасибо: 197
Поблагодарили 367 раз(а) в 120 сообщениях
Репутация: 73797
По умолчанию

Цитата:
Сообщение от kat.l.a Посмотреть сообщение
В двумерном массиве умножить те элементы, кот имеют четную сумму индексов и превосходят ср арифм значение элементов вектора
НА ЧТО УМНОЖИТЬ ПРИКАЖЕТЕ?!!
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S на форуме   Ответить с цитированием
Старый 19.12.2016, 10:39   #3 (permalink)
kat.l.a
Новичок
 
Регистрация: 19.12.2016
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Нужно Утроить*
kat.l.a вне форума   Ответить с цитированием
Старый 19.12.2016, 11:05   #4 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 24,725
Сказал(а) спасибо: 197
Поблагодарили 367 раз(а) в 120 сообщениях
Репутация: 73797
По умолчанию

Цитата:
Сообщение от kat.l.a Посмотреть сообщение
Нужно Утроить*
Нужно, так нужно... Пожалуйста:
Код:
Const
 A=15;
 O=8;
 P=12;

Var
 X:Array[1..A] of Integer;
 Y:Array[1..O,1..P] of Integer;
 X_M:Real;
 i,j:byte;

Begin
 Randomize;
 X_M:=0;
 Writeln('Vector:');
 for i:=1 to A do
  begin
   X[i]:=Random(15);
   Write(X[i]:4);
   X_M:=X_M+X[i]/A;
  end;
 Writeln;
 Writeln('Arithmetic mean = ',X_M:0:3);
 Writeln;
 Writeln('Initial matrix:');
 for i:=1 to O do
  begin
   for j:=1 to P do
    begin
     Y[i,j]:=Random(10);
     Write(Y[i,j]:4);
    end;
   Writeln;
  end;
 Writeln;
 Writeln('New matrix:');
 for i:=1 to O do
  begin
   for j:=1 to P do
    begin
     if ((i+j) mod 2 = 0) and (Y[i,j]>X_M) then Y[i,j]:=Y[i,j]*3;
     Write(Y[i,j]:4);
    end;
   Writeln;
  end;
 Readln
End.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S на форуме   Ответить с цитированием
Старый 19.12.2016, 11:24   #5 (permalink)
kat.l.a
Новичок
 
Регистрация: 19.12.2016
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

огромное спасибо
kat.l.a вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 19.12.2016, 13:50   #6 (permalink)
grelly
падаван
 
Аватар для grelly
 
Регистрация: 23.01.2013
Сообщений: 731
Сказал(а) спасибо: 305
Поблагодарили 15 раз(а) в 2 сообщениях
Репутация: 6609
По умолчанию

Цитата:
X:Array[1..A] of Integer;
Y:Array[1..A,1..A] of Integer;
копипаст зло)
grelly вне форума   Ответить с цитированием
Старый 19.12.2016, 14:18   #7 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 24,725
Сказал(а) спасибо: 197
Поблагодарили 367 раз(а) в 120 сообщениях
Репутация: 73797
По умолчанию

Цитата:
Сообщение от grelly Посмотреть сообщение
копипаст зло)
Спасибо, поправил!
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S на форуме   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Метки
pascal, вектор, массив, матрица, паскаль

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 12:22.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.