Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Ihor2108
0 / 0 / 0
Регистрация: 01.12.2013
Сообщений: 8
1

Дана матрица 4х4. Для каждого столбца найти и вывести суму значений, что больше заданого числа А.Ввод числа с клавиатуры

01.12.2013, 22:16. Просмотров 909. Ответов 1
Метки нет (Все метки)

срочно нужно, а я не знаю как решить.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.12.2013, 22:16
Ответы с готовыми решениями:

Для каждого столбца найти и вывести суму значений, которые тольше заданого числа А
создать матрицу 4х4 типа ворд.Для каждого столбца найти и вывести суму значений,которые тольше...

Для каждого столбца найти и вывести суму значений, которые больше заданого числа А
прошу помощи)

Дана квадратная матрица порядка Т. Для каждого столбца найти наименьший элемент. Вывести произведение найденных элементов
Дана квадратная матрица порядка Т. Для каждого столбца найти наименьший элемент. Вывести...

Дана квадратная матрица порядка Т. Для каждого столбца найти наименьший элемент. Вывести произведение найденных элементов
Пожалуйста.

Даны 3 числа. Для каждого из этих чисел, найти сумму цифр числа и определить у кокого числа сумма больше
Даны 3 числа. Для каждого из этих чисел, найти сумму цифр числа и определить у кокого числа сумма...

1
habb
25 / 25 / 12
Регистрация: 23.09.2013
Сообщений: 134
01.12.2013, 22:55 2
Лучший ответ Сообщение было отмечено Ihor2108 как решение

Решение

не проверял.

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
var a:array[1..4,1..4] of integer;
    x1,x2,x3,x4,i,j,m,g:integer;
    
Begin
 
m:=4;
writeln('Введите A');read(g);
writeln('Задайте массив');
for i:=1 to m do for j:=1 to m do read(a[i,j]);
x1:=0;
x2:=0;
x3:=0;
x4:=0;
 
for i:=1 to m do
    for j:=1 to 1 do
    begin
    x1:=x1+a[i,j];
end;
for i:=1 to m do
    for j:=2 to 2 do
    begin
    x2:=x2+a[i,j];
end;
for i:=1 to m do
    for j:=3 to 3 do
    begin
    x3:=x3+a[i,j];
end;
for i:=1 to m do
    for j:=4 to 4 do
    begin
    x4:=x4+a[i,j];
end;
 
writeln('Сумма по столбцам: ',x1, ' ',x2, ' ', ' ',x3, ' ',x4);
writeln('Больше А: ');
if (x1>g) then write(x1);
if (x2>g) then write(x2);
if (x3>g) then write(x3);
if (x4>g) then write(x4);
 
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.12.2013, 22:55

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

Дана матрица размера M x N. Для каждого столбца матрицы найти произведение его элементов
Дана матрица размера M x N. Для каждого столбца матрицы найти произведение его элементов.Помогите...

Дана квадратная матрица порядка k. Для каждого столбца матрицы найти наибольший элемент
Дана квадратная матрица порядка k. Для каждого столбца матрицы найти наибольший элемент. Вычислить...


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

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

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