Сорри, что возможно нарушил какие то правила по созданию тем.
Помогите пожалуйста с паскалем, сам гуманитарий, а брат ничего не понимает в нем. Если не сложно скиньте решения. Заранее благодарен.
В одномерном массиве, состоящем из п вещественных элементов, вычислить:
1. Максимальный по модулю элемент массива.
2. Сумму элементов массива, расположенных между первым и вторым положительными элементами.
3. Преобразовать массив таким образом, чтобы элементы, равные нулю, располага¬лись после всех остальных.
7 марта 2010 в 20:00
третье не знаю.
7 марта 2010 в 16:01
Второе:
var a:array[1..20] of real
i,b,s,y,:integer
begin
For i:=1 to 20 do
Writeln('VVedite a[',i,']:');
Readln(a[i]);
end;
b:=0
y:=0
For i:=20 downto 1 do
If a[i]>0 then
y:=i;
For i:=20 downto (y+1) do
If a[i]>0 then b:=i;
For i:=y to b do
s:=s+a[i];
Writeln('s=',s);
end.
7 марта 2010 в 16:00
первое:
var a:array[1..20] of real
i,b:integer
begin
For i:=1 to 20 do
Writeln('VVedite a[',i,']:');
Readln(a[i]);
end;
{массив введен, ищем макс.по модулю
b:=a[1];
For i:= 2 to 20 do
If (b<abs(a[i]) then b:=a[i];
Writeln('Max abs=',b);
end.