Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
карас
0 / 0 / 0
Регистрация: 25.01.2013
Сообщений: 2
1

Заполнить матрицу (4х4) случайными значениями от 12 до 18 включительно. Вывести сумму значений элементов каждого столбца матрицы

19.02.2014, 19:07. Просмотров 452. Ответов 1
Метки нет (Все метки)

Пожалуйста исправьте ошибки:
1.Задать двумерный массив (4х4) случайными значениями от 12 до 18 включительно. Вывести сумму значений элементов каждого столбца матрицы.
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
47
48
49
50
VAR
i, j: Integer;
a: Array [0..4] of Array [1..4] of Integer;
BEGIN
for i := 1 to 4 do
for j := 1 to 4 do begin
a[i][j] := Random(7)+12;
a[0][j] := a[0][j] + a[i][j];
end;
 
for i := 1 to 4 do begin
for j := 1 to 4 do Write(a[i][j],' '); Writeln; end;
 
Writeln;
for i := 1 to 4 do Write(a[0][i],' ');
END.
 
2. Задать двумерный массив (7х7) случайными значениями от 12 до 18 включительно. В каждом столбце матрицы найти количество элементов, значения которых меньше 14.
VAR
i, j: Integer;
a: Array [0..7] of Array [1..7] of Integer;
BEGIN
for i := 1 to 7 do
for j := 1 to 7 do begin
a[i][j] := Random(7)+12;
if (a[i][j] < 14) then Inc(a[0][j]);
end;
 
for i := 1 to 7 do begin
for j := 1 to 7 do Write(a[i][j],' '); Writeln; end;
 
Writeln;
for i := 1 to 7 do Write(a[0][i],' ');
END.
 
3. Задать двумерный массив (3х3) с клавиатуры, поменять значения элементов 1 столбца со вторым.
VAR
i, j: Integer;
a: Array [0..3] of Array [1..3] of Integer;
BEGIN
for i := 1 to 3 do
for j := 1 to 3 do Read(a[i][j]);
 
for i := 1 to 3 do begin
a[0][i] := a[1][i]; a[1][i] := a[2][i]; 
a[2][i] := a[0][i]; end;
 
for i := 1 to 3 do begin
for j := 1 to 3 do Write(a[i][j],' '); Writeln; end;
END.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.02.2014, 19:07
Ответы с готовыми решениями:

Одномерный массив N элементов заполнить случайными значениями, вывести его на экран. N=12 Найти сумму четных элементов
Одномерный массив N элементов заполнить случайными значениями, вывести его на экран. N=12 Найти...

Получить новую матрицу умножением элементов каждого столбца первой матрицы на наименьшее из значений элементов соответствующей строки второй матрицы
Даны 2 действительные матрицы порядка n.Получить новую матрицу умножением элементов каждого столбца...

Заполнить матрицу размера М*N случайными числами. Вычислить сумму минимального и максимального элементов матрицы.
Помогите пожалуйста

Найти сумму отрицательных элементов каждого столбца матрицы и заменить данными значениями вторую строку
1. Создать текстовый файл, в котором содержится матрица с числами с произвольного количества строк...

Вычесть из каждого столбца матрицы максимальный элемент для каждого столбца, и результат вывести в матрицу
Что нужно добавить , чтобы вычесть из каждого столбца матрицы максимальный элемент для каждого...

1
Varsavia
4 / 4 / 8
Регистрация: 02.10.2013
Сообщений: 8
03.03.2014, 22:46 2
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
Program primer1;
var i,j,c,s:integer;
   m: array [1..4, 1..4] of integer;
begin
c:=1;
Writeln('Введите элименты массива');
for i:=1 to  4 do 
 begin
 for j:=1 to  4 do
 m[i,j]:=random(7)+12;
 end;
  for i:=1 to 4 do
begin
 for j:=1 to 4 do
write(m[i,j],' ');
writeln;
end;
 While (c<=4) do
 begin
 s:=0;
 for i:=1 to 4 do 
 begin
 for j:=1 to 4 do
 begin
  if (c=j) then s:=s+m[i,j];
  end; 
  end;
  Writeln(c,'Стобец', s);
  c:=c+1;
  end;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.03.2014, 22:46

Создать матрицу 4 на 4, для каждого четного столбца вывести сумму квадратов его элементов
что то мне подсказывает что я номера столбцов в квадрат возвел а не его элементы Program M5; Var...

Создать матрицу 4х4, и заполнить ее значениями от 0 до 15 без повторов
Нужно сделать матрицу 4х4 и заполнить ее значениями от 0 до 15 без повторов. Пытался сделать через...

Определить сумму элементов каждого столбца матрицы и упорядочить номера столбцов по убыванию значений
Здравствуйте!помогите мне пожалуйста(( Дана квадратная матрица размером n x n, содержащая...


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

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

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