С клавиатуры вводится число N, а за ним N элементов массива состоящего из целых чисел.Проверить, все ли элементы массива положительны. Если да, то ввести фразу "ДА", в противном случае-"Нет".

Можно указать n вместо 50 в array'e, но тогда нельзя будет ввести n с клавиатуры, в следствии чего придется указать ее как константу

А с булеаеном у меня тоже идейка была)) Но так интереснее))

Тьфу

Трактовка, трактовочка задания и мне не всегда понятна)) не буду настаивать на своей точке зрения, но думаю, что моя задача проще и под школьный уровень, а твоя ближе под "красиво оформленную" программку для курсовухи смахивает :D

program massivn;uses crt;type massiv=array[0..50] of integer;var a:massiv;    n,i,k:integer;beginwriteln('vvedite n');readln(n);for i:=1 to n do begina[i]:=random(100)-10;write(a[i]:3);end;for i:=1 to n doif a[i]>0 then k:=k+1;writeln; if k=n then writeln('DA') else writeln('NET');end.

const  C = 100;var  n, i : Integer;  a    : array [1..C] of Integer;  flag : Boolean;begin  Write('N: ');  Readln(n);    if (n < 1) or (n > C) then  begin    Write('Ошибка, недопустимое число.');    Exit;  end;  for i := 1 to n do  begin    Write('a[', i,']:= ');    Readln(a[i]);  end;    flag := False;  for i := 1 to n do    if a[i] < 1 then    begin       flag := True;       Break;    end;  if flag then Writeln('НЕТ') else Writeln('ДА');   Readln;end.