Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Ввод числа http://www.cyberforum.ru/pascalabc/thread1024977.html
как мне ввести в массив числа вида 01, 064 и т.п.?мне просто нужно потом склепать из них готовое максимальное число.
задача Pascal ABC
помоги решить задачу
базы данных Pascal ABC
1. Описать комбинированный тип данных для представления следующего понятия (выполнить задание в соответствии с вашим индивидуальным вариантом) 2. Организуйте ввод значений компонент записи...
Pascal ABC Рекурсия Помогите написать программу з используванием рекурсии http://www.cyberforum.ru/pascalabc/thread1024943.html
Pascal ABC блок-схема http://www.cyberforum.ru/pascalabc/thread1024933.html
program gfgkfg; const n = 3; type matrix = array of integer; {процедура поворота} procedure rotate(var z : matrix); var p, i, j, x : integer; begin
Процедуры в паскале Pascal ABC
Вывести и обработать два массива, содержащие соответственно 5 и 8 вещественных компонентов. Разработать следующие процедуры: 1. Ввод массива датчика случайных чисел 1. Вывод массива в строку...
Подсчет количества лет, месяцев и дней прожитых на острове Pascal ABC
Помогите пожалуйста составить программу на паскале ABC Робинзон прожил на острове N дней .Составить программу на Паскале ABC вычисления количества лет,месяцев и дней прожитых им на...
Pascal ABC Massive Дано два одномерных массива одинаковой длины x(n) и y(n) Найти http://www.cyberforum.ru/pascalabc/thread1024919.html
Pascal ABC Операнды имеют неприводимые типы в операторе IF http://www.cyberforum.ru/pascalabc/thread1024912.html
Прошу помочь: В операторе IF дает ошибку "Операнды имеют неприводимые типы " program pr; {программа суммирует числа кратные 6 и последняя цифра в числе =4} uses crt; var i: integer;...
Pascal ABC вычислить значение выражения y=a/b+z^n Вычислить значение выражения y=a/b+z^n. Вычисление значения степени оформить в виде пользовательской процедуры или функции. http://www.cyberforum.ru/pascalabc/thread1024856.html
habb
25 / 25 / 12
Регистрация: 23.09.2013
Сообщений: 134
01.12.2013, 22:55 0

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

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

Лучший ответ Сообщение было отмечено 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.


Вернуться к обсуждению:
Дана матрица 4х4. Для каждого столбца найти и вывести суму значений, что больше заданого числа А.Ввод числа с клавиатуры
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. Для каждого столбца матрицы найти наибольший элемент. Вычислить...

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