ZONDO

помогите решить задачки по массивам, заранее спасибо

Цитата:

В одномерном массиве, состоящем из п вещественных элементов, вычислить: 1) Сумму элементов массива, расположенных до последнего положительного элемента. 2) Сжать массив, удалив из него все элементы, модуль которых находится в интер­вале [а, b]. Освободившиеся в конце массива элементы заполнить нулями.

решить нужно с использованием рандома

Qiker

ZONDO, вот решение первой задачи, но если честно, то я не понял в этого №1
program hh;
const n=3;
var
a:array [1..n] of integer;
i,d:integer;
Begin
for i:=1 to 3 do begin
a[i]:=random(100);
write(a[i],' ');

end;

for i:=1 to 3 do begin
if i<>n then
d:=0;
d:=d+a[i];
end;
d:=d+a[1];
writeln('d=',d);
end.

ZONDO

Спасибо большое, думаю разберусь, вторую посмотрите еще

Qiker

знаний не хватит мне вторую задачу решить - решаю только школьный курс

---------- Добавлено в 10:14 ---------- Предыдущее сообщение было написано в 07:17 ----------

ZONDO, Вот решение задачи №2


const
n=10;
var
i,j,a,b:integer;
Ar:Array [1..n] Of Integer;
Begin
writeln('BBeDuTe a u b');
readln(a,b);
For i:=1 To n Do
Begin
Ar[i]:=random(n-5);
write(ar[i]:3);
End;
For i:=1 To n Do
if ar[i] in [a..b] then
Begin
For j:=i to n-1 do
begin
ar[j]:=ar[j+1];
end;
ar[n]:=0;
end;
writeln('');
For i:=1 To n Do
write(ar[i]:3);
End.

ZONDO

Спасибо, попробую разобраться и сдать, позже напишу

Qiker

жду с нетерпением)

ZONDO

поясните пожалста,что это значит? :3

Qiker

ZONDO, это значит, что на каждый элемент массива отводится три пустых места. То есть если элемент массива равен 23, то выглядеть это будет вот так:
_23
если элемент массива равен, к примеру, 3:
_ _3.
Если элемент массива равен 345, то:
345.
write(ar[i]:3) - вместо 3, может быть другое число. Например 4: _ _ _ _
Где "_" - это пробел.
Делается это для того, чтобы чтобы заранее отвести место под элемент массива.

PS: это можно заменить так
write(a[i],' ');