Решите, пожалуйста, в паскале. 1) Одномерный массив из 10 элементов задан датчиком...

Question

Решите, пожалуйста, в паскале.
1) Одномерный массив из 10 элементов задан датчиком случайных чисел на интервале от -1 до 6. Найти произведение квадратов отрицательных элементов массива, массив вывести в строку.
2) Одномерный массив задан формулой A[i]=21-1. Найти полу сумму элементов массива.

Comments

Во втором задании   A[i] = 21 -1  ?  Может быть  A[i] = 2*i - 1 ?

---

Да, там  A[i] = 2*i - 1

---

А можно без boolean и priz

---

И еще. Посмотри, пожалуйста, интервал точно задан от (-1), может быть от (-10).? Иначе здесь и считать нечего: если нет отрицательных - произведение равно 0, если есть - то 1

---

Нет там -1

Answer 1

Var a: array[1..10] of integer;
    i,s: integer;
    priz: boolean;
begin
  randomize;
  write('массив:  ');  s:=1;
  priz:=false;
  for i:=1 to 10 do
   begin
    a[i]:=random(-1,6);
    write(a[i],' ');
    if a[i]<0 then<br>    begin
      s:=s*sqr(a[i]);
      priz:=true;
    end;
    end;
  writeln;
  if priz then    writeln('произв. квадратов отрицат. элем. = ',s)
  else writeln('нет отрицательных элементов');
  end.

Comments

var a: array of integer;
    i,n,s: integer;
    ps: real;
begin
  write('кол-во элементов массива:  ');
  readln(n);   setlength(a,n+1);
  write('массив:  ');  s:=0;
  for i:=1 to n do 
  begin
    a[i]:=2*i-1;
    write(a[i],' ');
    s:=s+a[i];
  end;
  writeln;  ps:=s/2;
  writeln('полусумма элементов = ',ps);  
end.

---

Без boolean  и   priz  будет так:    var a: array[1..10] of integer;
    i,s,j: integer;
begin
  randomize;
  write('массив:  ');  s:=1;  j:=0;
  for i:=1 to 10 do
   begin
    a[i]:=random(-1,6);
    write(a[i],' ');
    if a[i]<0 then<br>    begin
      s:=s*sqr(a[i]);
      j:=1;
    end;
    end;
  writeln;
  if j>0 then    writeln('произв. квадратов отрицат. элем. = ',s)
  else writeln('нет отрицательных элементов');
  end.

---

Ну и каков результат? Сбылось мое пророчество - всегда будет получаться 0 или 1???  

---

А что значит j?

---

А во второй задаче можно без setlength