сервис вопросов и ответовДана матрица В(5,5). Вычислить произведение элементов, стоящих выше главной
10-11 класс|
|
диагонали. Напечатать матрицу В и значение произведения.
Tusyu31
02 марта 2017 г., 2:41:51 (7 лет назад)
Batagovdavid
02 марта 2017 г., 4:35:19 (7 лет назад)
var
i,j,pr:integer;
a: array[1..5,1..5] of integer;
begin
randomize;
pr:=1;
write('Исходный массив:');
for i:=1 to 5 do
begin
writeln;
for j:=1 to 5 do
begin
a[i,j]:=random(4)+1;
write(a[i,j]:2);
if i<j then pr:=pr*a[i,j]
end
end;
writeln;
writeln('Произведение ',pr)
end.
Ответить
Другие вопросы из категории
Помогите пожалуйста! Что выводит на экран следующая программа? Program P120; var i : ^integer; begin new (i);
i^:=1;
new(i); i^:=2;
new(i); i^=3;
writeln (i^);
readln;
end.
Читайте также
дано массивы A(N1,N1),B(N2,N2),C(N3,N3). найти в каждой строке исходного массива наименьший элемент и переставить его с элементом стоящим на главной
диагонали. нахождение в каждой строке массива наименьшего элемента и его перестановку с элементом стоящим на главной диагонали оформить в виде подпрограммы
Дана матрица размерностью nxn найти
Дана матрица размерностью nxn найти минимальный элемент среди элементов расположенных над главной диагональю матрицы. Найти квадрат разности среди арифметических значений элементов матрицы ,находящихся ниже и выше главной диагонали
PASCAL
Пользователь вводит одномерный массив(1..15).Вывести его в обратном порядке и посчитать произведение элементов.
Посчитать произведение элементов,стоящих на главной диагонали массива 4:4,введенного пользователем.Сам массив выписать
Дан целочисленный массив из 20 элементов.Элементы массива могут принимать целые значения от 0 до 10000 включительно.Опишите их алгоритм,позволяющий найти и вывести макс. значение среди трехзначащих элементов массива,не делящихся на 9.Если в исходном массиве нет элементов,которые явл. трехзнач. числов,при этом не кратно 9,то выведет сообщение не найдено.
Дана квадратная матрица размера N. Если сумма элементов по главной диагонали больше суммы элементов на побочной диагонали, то заменить элементы стоящие на
четных местах в строке на “ * ”, а элементы стоящие на нечетных местах в строке на ноль.
1)Дана матрица размером M * N. В каждой строке матрицы найти минимальный элемент и максимальный из найденного.
2)дана матрица размерами N * N. Поменять местами столбец с максимальным и столбец содержащий минимальное количество нулевых элементов. Использовать три процедуры (заполнение, смена, вывод).
Вы находитесь на странице вопроса "Дана матрица В(5,5). Вычислить произведение элементов, стоящих выше главной", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.