Помогите пожалуйста сделать задание по программированию в Pascal.1. Отыскать творение всех
Помогите пожалуйста сделать задание по программированию в Pascal.
1. Отыскать произведение всех частей массива размерностью N (если элемент равен 0, то пропустить).
2. Найти наибольший по модулю элемент матрицы. Напечатать его значение и индексы.
1 ответ
Димка
1)
const
N = 5;//Размерность массива
var
m: array[1..N] of integer;
begin
var pr := 1;
for var i := 1 to N do
begin
read(m[i]);
if m[i] lt;gt; 0 then pr := pr * m[i];
end;
writeln(pr);
end.
Пример:
Входные данные:
1 2 3 0 5
Выходные данные:
30
2)
const
N = 3;//Размерность матрицы
var
m: array[1..N, 1..N] of integer;
i, j: integer;
rec: record
mmax: integer = -(maxint);
ind: record
i: integer;
j: integer;
end;
end;
begin
for i := 1 to N do
for j := 1 to N do
begin
read(m[i, j]);
if абс(m[i, j]) gt; rec.mmax then begin
rec.mmax := абс(m[i, j]);
rec.ind.i := i;
rec.ind.j := j;
end;
end;
writeln('Наибольший по модулю элемент матрицы ', rec.mmax, '(', rec.ind.i, ';', rec.ind.j, ')');
end.
Пример:
Входные данные:
1 2 3
4 5 -9
7 8 6
Выходные данные:
Максимальный по модулю элемент матрицы 9(2;3)
const
N = 5;//Размерность массива
var
m: array[1..N] of integer;
begin
var pr := 1;
for var i := 1 to N do
begin
read(m[i]);
if m[i] lt;gt; 0 then pr := pr * m[i];
end;
writeln(pr);
end.
Пример:
Входные данные:
1 2 3 0 5
Выходные данные:
30
2)
const
N = 3;//Размерность матрицы
var
m: array[1..N, 1..N] of integer;
i, j: integer;
rec: record
mmax: integer = -(maxint);
ind: record
i: integer;
j: integer;
end;
end;
begin
for i := 1 to N do
for j := 1 to N do
begin
read(m[i, j]);
if абс(m[i, j]) gt; rec.mmax then begin
rec.mmax := абс(m[i, j]);
rec.ind.i := i;
rec.ind.j := j;
end;
end;
writeln('Наибольший по модулю элемент матрицы ', rec.mmax, '(', rec.ind.i, ';', rec.ind.j, ')');
end.
Пример:
Входные данные:
1 2 3
4 5 -9
7 8 6
Выходные данные:
Максимальный по модулю элемент матрицы 9(2;3)
Dashka Chihacheva
При команде выполнить просит ввести данные.Какие данные?
Тамара Лычева
То, что надо. Первая программка просит ввести элементы массива размерностью N (либо ввести N частей). 2-ая программка просит ввести элементы матрицы размерностью NxN (в примере, 3 на 3).
Лилия Горитовская
Ввел но при попытке вывести результат на экран просто ничего нет.
Ярослава Бакашева
Простите, что у Вас по информатике?) На код хорошо поглядите, не может ничего не быть.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Облако тегов