1.) Дан массив вещественных чисел A(N),N<=40.Подсчитать в нем кол-во элементов удовлетворяющих услови: (1/4)*S<=A(I)<(3/4)*S, где S-среднее арифметическое всех эл-тов.Напечатать такие эл-ты и их номера.
2.) Дан массив целых B(M,N),N,M<=10.Переставить столбцы с максимальным и минимальным значениями суммы квадрато их эл-тов. Сделать через процедуры.Заранне спосибо!
Полная версия: Задачи по массивам ...
Цитата(Правила Раздела)
3. Прежде чем задавать вопрос, см. "FAQ",если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
Поиск, конечно, ничего не дал? 
Несмотря на то, что это РЕШАЛОСЬ... Тогда, скажи, в чем проблема? Не умеем находить среднее арифметическое? Читать по-русски не умеем? (это про вторую задачу)... Здесь читай:
FAQ: Как задать матрицу, чтобы быстро поменять...
Просто я в этой теме плохо разбираюсь.Помоги пожалуйста написать эти 2 задачки. 
Плизззззззззз...
Плизззззззззз...
1.
Среднее арифметическое:
Среднее арифметическое:
Код
...
s:=0;
for i:=1 to n do
s:=s+a[i];
s:=s/n;
...
s:=0;
for i:=1 to n do
s:=s+a[i];
s:=s/n;
...
Цитата
Подсчитать в нем кол-во элементов удовлетворяющих условию:
Код
...
for i:=1 to n do
if (a[i]>s/4) and (a[i]>(3*s)/4) then
write(Условию удовлетворяет элемент ',a[i],' с номером ',i);
...
for i:=1 to n do
if (a[i]>s/4) and (a[i]>(3*s)/4) then
write(Условию удовлетворяет элемент ',a[i],' с номером ',i);
...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.