Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
Форум «Всё о Паскале» _ Задачи _ Задачи по массивам ...
Автор: ned11 7.03.2006 0:47
1.) Дан массив вещественных чисел A(N),N<=40.Подсчитать в нем кол-во элементов удовлетворяющих услови: (1/4)*S<=A(I)<(3/4)*S, где S-среднее арифметическое всех эл-тов.Напечатать такие эл-ты и их номера.
2.) Дан массив целых B(M,N),N,M<=10.Переставить столбцы с максимальным и минимальным значениями суммы квадрато их эл-тов. Сделать через процедуры.Заранне спосибо!
Автор: volvo 7.03.2006 0:52
Цитата(Правила Раздела)
3. Прежде чем задавать вопрос, см. "FAQ",если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
Поиск, конечно, ничего не дал? 
Несмотря на то, что это РЕШАЛОСЬ... Тогда, скажи, в чем проблема? Не умеем находить среднее арифметическое? Читать по-русски не умеем? (это про вторую задачу)... Здесь читай:
http://forum.pascal.net.ru/index.php?s=&showtopic=2694&view=findpost&p=38100
Автор: ned11 7.03.2006 1:08
Просто я в этой теме плохо разбираюсь.Помоги пожалуйста написать эти 2 задачки. 
Плизззззззззз...
Автор: Ozzя 7.03.2006 18:28
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);
...