Вопрос по информатике:
Помогите пожалуйста
Дано N целое число и N x N размер матрицы.
Составить блок-схему и на языке Turbo Pascal написать программу,которые подсчитают и напечатают среднее арифметическое для печати матричных элементов главной диагонали вниз, значение которых относятся данному [a;b] диапазону .
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 19.12.2016 03:03
- Информатика
- remove_red_eye 10090
- thumb_up 20
Ответы и объяснения 1
Const
handsfree = false;
var
matrix: array[1..100, 1..100] of real;
sum, a, b: real;
i, j, n, k: integer;
begin
{ввод матрицы}
if handsfree then begin
n := random(20) + 2;
end
else begin
write('n =');
readln(n);
end;
writeln('Matrix data:');
for i := 1 to n do
begin
for j := 1 to n do
if handsfree then begin
matrix[i, j] := random(100) - 50;
write(matrix[i, j]:4, ' ')
end
else
read(matrix[i, j]);
writeln;
end;
{сумма, произведение, пр. агригаты}
write('Enter a, b =');
readln(a, b);
sum := 0;
k := 0;
for i := 1 to n do
if (matrix[i, i] >= a) and (matrix[i, i] <= b) then {если нужен фильтр}
begin
sum := sum + matrix[i, i];
k := k + 1;
end;
if k > 0 then
writeln('Average (selected) = ', sum / k)
else writeln('Such elements not found');
end.
- 20.12.2016 06:37
- thumb_up 28
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.