Дан массив целых чисел из n элементов

[endimion11]

Как решить задачу на Delphi: "Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-40,40]. Найти сумму элементов, значения которых по модулю меньше 10".

[Grag]

Var
  Mass:array of word;
  N,i:word; //от 0 до 65535
  S:real48;
begin
  if Mass<>Nil then Mass:=Nil;
  SetLength(Mass,N);
  S:=0;
  for i:=0 to N-1 do
    begin
      Mass[i]:=random(81)-40;
      if Abs(Mass[i])<10 then S:=S+Mass[i]
    end
end

Примерно так, N можешь вводить череэ Едит...

[Stilet]

А что конкретно в задаче ты не знаешь?
Массив наполняется в цикле :=40-Random(80);
А условие для поиска if abs(a[i])<10 then a[i] - нужный элемент.

[ROMA2PVT]

Program mas;
uses crt;
var
a,b:array[1..100]of integer;
i,n,sum:integer;
begin
begin
clrscr;
write('Введите количество элементов n=');
read(n);
randomize;
writeln('Исходный массив: ');
for i:=1 to n do
 begin
  a[i]:=40-random(80);
write(a[i],'  ');
end;
sum:=0;
for i:=1 to n do
   if abs(a[i])<10 then
    begin
    sum:=sum+a[i];
  end;
    writeln;
    writeln(sum);
    end;
end.

А что конкретно в задаче ты не знаешь?
Массив наполняется в цикле :=40-Random(80);
А условие для поиска if abs(a[i])<10 then a[i] - нужный элемент.

Видимо этого то он и не знает.ХеХ!!!

[Grag]

ROMA, ТС пишет, однако...

Сообщение от endimion11

Как решить задачу на Delphi:

[ROMA2PVT]

Ой! Извиняюсь.Ну я думаю переделать то не трудно будет если чё.

[endimion11]

Сообщение от ROMA2PVT

Ой! Извиняюсь.Ну я думаю переделать то не трудно будет если чё.

Легко сказать! Мне в этом delphi мало что ясно, поэтому и пришел на форум.

[Grag]

См. пост #2, я ж тебе там почти все написал... Массив динамический...заполняется рандомно.
Полагаю, что его выводить не надо...хотя при желании можно сляпать StringGrid...
Ввод N через Едит, выводить сумму S можешь хоть через другой Едит, хоть через Label...

[endimion11]

Как прописать ввод и вывод?

[Grag]

Допустим на форме у тебя есть Edit1. Тогда ввод размерности массива будет так N:=StrToInt(Edit1.Text);
Вывод суммы: если выводишь ее в другой Едит, то так Edit2.Text:=FloatToStr(S). Если выводишь в какую-нибудь метку, то так
Label1.Caption:=FloatToStr(S)...

Всю байду можно сделать по нажатию кнопки Button1Click, просто весь код засовываешь в обработчик нажатия на кнопку...