Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Valera199666
0 / 0 / 0
Регистрация: 03.03.2016
Сообщений: 10
#1

Создание массива

12.06.2016, 16:14. Просмотров 191. Ответов 2
Метки нет (Все метки)

Всем добрый день, два дня уже не могу разобрать как написать программу для создания и обработки сассива( Буду очень благодарен за любую помощ!!

Дано массив А(4,5). Найти номер К строки с максимальной суммой элементов. Дальше сформировать массив В (4,5) каждый элемент которого был бы равен элементу соответственной строки массива А, розделённый на соответственный элемент К-той строки.

Вот нашёл пример на сортировку, но он не совсем мне подходит( и самое главное это вторая часть задания(



Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
uses crt;
const nmax=15;
var a:array[1..nmax,1..nmax] of integer;
    n,i,j,s,mx,imx:integer;
begin
clrscr;
randomize;
repeat
write('Размер матрицы до ',nmax,' n=');
readln(n);
until n in [1..nmax];
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(50);
writeln('Исходная матрица:');
writeln('Сумма':3*n+6);
for i:=1 to n do
 begin
  s:=0;
  for j:=1 to n do
   begin
    write(a[i,j]:3);
    s:=s+a[i,j];
    if i=1 then
     begin
      mx:=s;
      imx:=1
     end
    else if s>mx then
     begin
      mx:=s;
      imx:=i
     end;
   end;
  writeln(s:5);
 end;
writeln('Максимальная сумма в строке ',imx,'=',mx);
readln
end.

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.06.2016, 16:14
Ответы с готовыми решениями:

Создание массива В из простых элементов массива А
Создайте массив В из простых элементов массива А.

Создание массива
ввести 6 действительных чисел, затем создать новый массив, заменив первые два...

Создание массива
Суть задачи такая: дан текстовый файл с числами, нужно создать массив который...

Преобразование массива, создание массива из элементов строк матрицы.
Помогите пожалуйста!! Нужно написать проги на Паскале. Буду Вам очень...

Создание массива y из массива x с помощью процедуры
Определить процедуру p (x,y), которая для данного массива чисел x создает...

2
Puporev
Модератор
54216 / 41849 / 28920
Регистрация: 18.05.2008
Сообщений: 98,508
12.06.2016, 17:43 #2
Цитата Сообщение от Valera199666 Посмотреть сообщение
Вот нашёл пример на сортировку,
А что именно его а 1000 других кодов на матрицы?

Добавлено через 10 минут
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
uses crt;
const m=4;
      n=5;
var a,b:array[1..m,1..n] of real;
    i,j,k:byte;
    s,mx:real;
begin
randomize;
writeln('Массив А');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=10*random;
    write(a[i,j]:6:2);
   end;
  writeln;
 end;
for i:=1 to m do
 begin
  s:=0;
  for j:=1 to n do
  s:=s+a[i,j];
  if i=1 then
   begin
    k:=i;
    mx:=s
   end
  else if s>mx then
   begin
    k:=i;
    mx:=s
   end;
 end;
writeln('Максимальная сумма элементов=',mx:0:2,' в строке ',k);
writeln('Массив В');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    b[i,j]:=a[i,j]/a[k,j];
    write(b[i,j]:6:2);
   end;
  writeln;
 end;
end.
0
Valera199666
0 / 0 / 0
Регистрация: 03.03.2016
Сообщений: 10
12.06.2016, 17:49  [ТС] #3
Спасибо огромное! с масивами всегда были проблемы( Теперь буду пробовать переводить в Си ещё
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.06.2016, 17:49

Создание массива
Здравствуйту все, помогите пожалуйста решить задачку, полный 0 в Паскале я...

Создание массива списков
Есть файл с базой данных "Жизнь Замечательных Людей". В ней список книг. В...

Создание массива из матрицы
procedure MatrMas(var a: matr; var b: mas; n, m: integer );//создание массива...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru