Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Помогите пожалуйста решить задачу (Массивы)
Помогите пожалуйста решить задачу
1.Распечатать номера тех элементов, которые меньше средне-арифметического положительных чисел
2. Найти максимальный элемент массива и его индекс
1 | Автор: Murka886 | 2011-11-16, 18:25 | Изменено: Murka886 - Ср, 2011-11-16, 18:30   |  Репутация: [ + 0 ]
1.
var
a:array[1.100]of integer;
i,s,p,n:integer;
begin
read(n);
p:=0;
for i:=1 to n do begin
read(a[i]);
if a[i]>0 then begin p:=p+1;s:=s+a[i];end;end;
s:=round(s/p);
for i:=1 to n do
if a[i]<s then write(i,' ');
end.

2.
uses crt;
var
i,n,a,p,q:integer;
begin
p:=low(p);
read(n);
for i:=1 to n do begin
read(a);
id a>p then begin p:=a;q:=i;end;end;
writeln(p);
write(q);
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2011-11-16, 21:51   |  Репутация: [ + 211 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Помогите пожалуйста решить задачу (Массивы)
Страница 1 из 11
Поиск: