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

Const

C = 100;

var n, i : Integer;

a : array [1 ... C] of Integer;

flag : Boolean;

begin

Write ('N: ') ;

Readln (n) ;

if (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.

Program massivn;

uses crt;

type massiv=array[0 ... 50] of integer;

var a:massiv;

n, i, k:integer;

begin

writeln ('vvedite n') ;

readln (n) ;

for i:=1 to n do begin

a[i]:=random (100) - 10;

write (a[i]:3) ;

end;

for i:=1 to n do

if a[i]>0 then k:=k+1;

writeln;

if k=n then writeln ('DA') else writeln ('NET') ;

end.