сервис вопросов и ответов10 класс! ПАСКАЛЬ АБС!! СРОЧНО! состиавить прогораму которая в обычном двумерном массиве выведет на печать индекс тех элементов, кот.
10-11 класс|
|
больше среднего арифметического элементов массива.
все это делается относительно i и j
135Lilia531
13 февр. 2017 г., 12:21:27 (7 лет назад)
Friman288
13 февр. 2017 г., 13:31:21 (7 лет назад)
var
a:array[1..100, 1..100] of real;
n, m, i, j:integer;
Sr:real;
begin
write('Введите количество строк матрицы '); readln(m);
write('Введите количество столбцов матрицы '); readln(n);
writeln('Исходный массив:');
Sr := 0;
for i := 1 to m do
begin
for j := 1 to n do
begin
a[i, j] := random(101) - 50;
write(a[i, j]: 5:0);
Sr := Sr + a[i, j];
end;
writeln;
end;
Sr := Sr / (n * m);
writeln('Среднее арифметическое равно ', Sr);
writeln('Элементы больше среднего арифметического:');
for i := 1 to m do
for j := 1 to n do
if a[i, j] > Sr then
writeln('a[', i, ', ', j, '] = ', a[i, j]);
end.
Ответить
Другие вопросы из категории
Пусть p и n целые положительные числа и n=123 456. Чему равно значение p по выполнению оператора присваивания:
a) p=n/100 mod 10;
b) p=n/100 mod 10+n mod 10
Сколько единиц в двоичной записи десятичного числа
172,25
желательно с подробнейшим решением)спасибо)
Читайте также
Задан одномерный массив размером 40. Определите количество элементов массива и среднее арифметическое значение этих элементов, которых больше заданного
числа 7 и меньше 10. Вывести количество элементов массива и среднее арифметическое значение этих элементов, которых больше заданного числа 7 и меньше 10 на монитор
срочно помогите решить! дам много пунктов!!! пожалуйста, зачет по информатике!! в qBasiq Вариант №
1
Дан массив целых чисел, состоящий из 20 элементов. Заполнить его с клавиатуры.
1. Найти:
- сумму элементов, имеющих нечетное значение;
- вывести индексы тех элементов, значения которых больше заданного числа А.
2. Определить, есть ли в данном массиве положительные элементы, кратные k (k вводить с клавиатуры).
1) Определите и выведите на экран количество чисел от 50 до 500, которые делятся на 11 и 13 одновременно. 2) Дан массив целых чисел, состоящий из 100
элементов. Заполнить его с клавиатуры. Найти:
а) удвоенную сумму положительных элементов;
б)вывести индексы тех элементов, значения которых больше значения предыдцщего элемента ( начиная со второго)
Задача!
1.Дан массив целых чисел, состоящий из 15 элементов. Найти: 1) сумму положительных элементов, значения которых меньше 10 2) вывести индексы тех элементов, значения которых кратны 3 и 5.
2. Определить, есть ли пара соседних элементов с суммой, равной заданному числу.
Составить программу Дан массив натуральных чисел , размерность -12 !) Заполнение массива производить с клавиатуры 2) Вывести на печать
только элементы кратные 2
3)Найти сумму первых пяти элементов
Составить программу Дан массив целых чисел , размерность -12
1) Заполнение массива производить случайными числами из диапозона [-10;35]
2)Вывести на печать только положительные элементы
3)Найти количество отрицательных элементов
Составить программу
Известны данные о выпуске прождукции ( ткани в метрах ) ткацким цехом текстильного комбината за каждый день месяца . Определить количество ткани ( метров) произведенных цехом за месяц .
Вы находитесь на странице вопроса "10 класс! ПАСКАЛЬ АБС!! СРОЧНО! состиавить прогораму которая в обычном двумерном массиве выведет на печать индекс тех элементов, кот.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.