Лабораторка по массивам. Pascal

[Tagimasad]

Задан массив A(n), заполненный случайными числами из диапозона [-12,27].
Найти сумму элементов, больших данного числа А.

Помогите студенту первокурснику))) Пожалуйста... мне на завтра нужно...

[Tagimasad]

Кто-нибудь!!!!

[Tagimasad]

Ладно... тогда хотя бы объясните что значит "... больших данного числа А"??
и где взять это число "А"?

[val_nnm]

const n=10;
type ar = array[0..n] of integer;

var i:integer;
    x:ar;
    A:integer;
    S:integer;
Begin
  randomize;
  for i := 0 to n do
    x[i] := random(27+12+1)-12;

  writeln('Исходный массив:');
  for i := 0 to n do Begin
    write(x[i]:5,' ');
  end;
  writeln;
  write('A=');
  readln(A);

  S := 0;
  for i := 0 to n do
    if (x[i]>A) then
      S := S + x[i];
  writeln;
  writeln;
  writeln('S=',S);
End.

[Tagimasad]

Вот что у меня получилось (но там последнее условие не учтено):
program ZZZ;
uses crt;
var
a:array[1..100] of integer;
s:real;
n:integer;
BEGIN
clrscr;
s:=0;
write ('n=');
read (n);
randomize;
For i:=1 to n do
BEGIN
a[i]:=random(40)-12;
s:=s+a[i];
END;
writeln ('s=',s);
readkey;
END.

[Tagimasad]

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

const n=10;
type ar = array[0..n] of integer;

var i:integer;
    x:ar;
    A:integer;
    S:integer;
Begin
  randomize;
  for i := 0 to n do
    x[i] := random(27+12+1)-12;

  writeln('Исходный массив:');
  for i := 0 to n do Begin
    write(x[i]:5,' ');
  end;
  writeln;
  write('A=');
  readln(A);

  S := 0;
  for i := 0 to n do
    if (x[i]>A) then
      S := S + x[i];
  writeln;
  writeln;
  writeln('S=',S);
End.

она нам пока не разрешает использовать "n" в массиве a:array[1..n]

[Tagimasad]

и почему a:array[0..n], а не a:array[1..100] ?
и мы еще не описывали в тайп..

[val_nnm]

В данном случае a:array[0..n] непринципеален. Это всеголиш пример. У меня размер жестко задан. У вас нет.

Если передалать ваш код. + добавил вывод массива.

program ZZZ;
uses crt;
var
  x:array[1..100] of integer;
  s:integer;
  n:integer;
  A:integer;
  i:integer;
BEGIN
  clrscr;
  s:=0;
  write ('n=');
  read (n);
  write('A=');
  readln(A);
  randomize;
  For i:=1 to n do
  BEGIN
    x[i]:=random(40)-12;
    if (x[i]>A) then   
      s:=s+x[i];
  END;
  writeln('Исходный массив:');
  for i := 1 to n do Begin
    write(x[i]:5,' ');
  end;
  writeln;
  writeln ('s=',s);
  readkey;
END.

[Tagimasad]

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

В данном случае a:array[0..n] непринципеален. Это всеголиш пример. У меня размер жестко задан. У вас нет.

Если передалать ваш код. + добавил вывод массива.

program ZZZ;
uses crt;
var
  x:array[1..100] of integer;
  s:integer;
  n:integer;
  A:integer;
  i:integer;
BEGIN
  clrscr;
  s:=0;
  write ('n=');
  read (n);
  write('A=');
  readln(A);
  randomize;
  For i:=1 to n do
  BEGIN
    x[i]:=random(40)-12;
    if (x[i]>A) then   
      s:=s+x[i];
  END;
  writeln('Исходный массив:');
  for i := 1 to n do Begin
    write(x[i]:5,' ');
  end;
  writeln;
  writeln ('s=',s);
  readkey;
END.

СПАСИБО БОЛЬШОЕ!