Вопрос по информатике:
Задачка в паскале.
Создать одномерный массив А, состоящий из сумм столбцов матрицы В(8,5). Определить в созданном массиве минимальный элемент и его местоположение, а также произведение всех элементов.
- 13.04.2015 06:33
- Информатика
- remove_red_eye 10633
- thumb_up 10
Ответы и объяснения 1
Program Task;
Const m = 8; n = 5;
Var A: Array [1..n] of Integer;
B: Array [1..m, 1..n] of Integer;
i, j, min: Integer;
product: LongInt;
Begin
Randomize;
For i := 1 To m Do
For j := 1 To n Do
B[i, j] := Random(20 + 1) - 10;
WriteLn('Матрица B:');
For i := 1 To m Do
Begin
For j := 1 To n Do
Write(B[i, j], ' ');
WriteLn;
End;
For i := 1 To n Do
For j := 1 To m Do
A[i] := A[i] + B[j, i];
WriteLn('Массив A:');
For i := 1 To n Do
Write(A[i], ' ');
WriteLn;
min := 1;
product := 1;
For i := 1 To n Do
Begin
product := product * A[i];
If A[i] < A[min] Then
min := i;
End;
WriteLn('Минимальный элемент: ', A[min]);
WriteLn('Его расположение: ', min);
WriteLn('Произведение всех элементов: ', product);
ReadLn;
End.
- 14.04.2015 23:23
- thumb_up 37
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.