створити і вивести масив а з nелементами,де n-20. у випадку відсутності шуканих...

Question

створити і вивести масив а з nелементами,де n-20. у випадку відсутності шуканих елементів,вивести про це повідомлення.

завд. Визначити суму номерів всіх негативних елементів. вивести ці номери.

Answer 1

Program Linao;
uses crt;
const n = 20;
var
  x:array [1..n] of real;
  i,k,j,sum:integer;
  max, min,temp: real;
begin
  writeln('*** alphaues is thinking... ***');
  for i:=1 to n do
    begin
      write('*');
      for j:=1 to n*100000 do j:=j;
    end;
  writeln;
  k:=0;
  randomize;
  sum:=0;
  writeln('негативні елементи: ');
  for i:=1 to n do
    begin
      x[i]:=random(101)-50;
      if x[i]<0 then<br>        begin
          sum:=sum+i;
          writeln(i,'-й елемент, рівний ',x[i]);
          k:=1;
        end;
    end;
  if k=0 then
    writeln('Немає таких елементів!');
end.