Const
n = 5;
var
arr: array [1..n] of integer;
i, N1, sum: integer;
begin
write('N = ');
readln(N1);
for i := 1 to n do
begin
write('A[', i, '] = ');
readln(arr[i]);
end;
i := 1;
sum := 0;
while (sum <= N1) and (i <= n) do
begin
sum := sum + arr[i];
i := i + 1;
end;
if sum > N1 then
writeln(sum)
else
writeln('Summa not grether then N');
end.
var n:integer;
begin
write('n=');
read(n);
if (n>0) then write ('n>0');
if (n<0) then write ('n<0');
if (n=0) then write ('n=0');
end.
С текстовым и графически.
//PascalABC.NET версия 3.4.0.1677 от 17.06.18
//Если программа не запускается, то обновите версию
begin
var a := ArrRandomInteger(Random(10, 100), 5, 35);
Println(a);
Println('Кол-во запрашиваемых элементов массива = ',a.Count(x -> (x mod 5 = 0) and (x mod 2 = 0)));
end.