С клавиатуры вводится число 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