Дано
10-11 класс
|
число k (0 < k < 11) и матрица размера 4 x 10. Найти сумму и произведение
элементов k-го столбца данной матрицы.
var
j,i,k,sum,proizv: integer;
A: array [1..4,1..10] of integer;
begin
proizv:=1;
randomize;
writeln('Матрица: ');
for i:=1 to 4 do
for j:=1 to 10 do
A[i,j]:=random(21)-10;
for i:=1 to 4 do
begin
for j:=1 to 10 do
write(A[i,j]:5);
writeln;
writeln;
end;
writeln('Введите К: ');
read(k);
for i:=1 to 4 do
begin
sum:=sum+A[i,k];
proizv:=proizv*A[i,k];
end;
writeln('Cумма чисел ',k,'-ого столбца: ',sum);
writeln('Произведение чисел ',k,'-ого столбца: ',proizv);
end.
Другие вопросы из категории
В небольшом предприятии его сотрудникам выдаётся месячная зарплата. Кассир, имея на руках бухгалтерскую ведомость, собирается ехать в банк за деньгами. При этом он имеет возможность не просто подать заявку на общую сумму, а указать в ней также, какими именно купюрами ему хотелось бы получить её. Делается это для того, чтобы потом было удобнее рассчитываться с каждым отдельным работником (например, если выплаты производится, как говорят, «в конвертах»). Предварительно все исходные данные нужно представить в виде таблицы, где против каждой фамилии сотрудника, как только вводится начисленная ему зарплата, она тут же выражается соответствующим набором денежных знаков. Одновременно подводится и общий итог по всему коллективу для формирования банковского заказа. При определении набора следовать принципу наименьшего числа купюрРади упрощения задачи расчёт вести только на бумажные деньги с точностью до 10 рублей
Для расчётов использовать встроенные функции ЦЕЛОЕ и ОСТАТ из категории «математических» .
Сколько килобайт
будет занимать файл в простом текстовом формате, если в тексте 300 страниц, на
странице 25 строк, а в строке в среднем 45 символов?
Задача
В
каталоге находится 6 файлов:
Читайте также
передавать эти данные по другой линии связи со скоростью 4 Мбит/с. Сколько секунд пройдет от начала приема данных по высокоскоростному каналу до полной передачи их по низкоскоростному каналу?
выходных данных: Необходимо вывести значение выражения
Входные данные: ввести одно целое положительное число a ((1<=a<=1000).
Выходные данные: вывести слово «true» если приведенное высказывание для предложенных исходных данных является истинным или «false» в противном случае.
пользователем, выделены полужирным шрифтом).
Вычисление объема параллелепипеда.
Введите исходные данные:
Длинна (см): 9
Ширина (см): 7.5
Высота (см): 5