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
|
|
|
|
