Проверить, все ли элементы заданного массива положительны

Категория: Delphi/Pascal
2011-09-02 23:25:24
code: #delphi
  1. const N=10;
  2. var i:integer;
  3.      A:array [1..N] of float;
  4.      positive:boolean;
  5.  
  6. begin
  7.   positive:=true;
  8.   i:=1;
  9.   while (i<=N) and positive do
  10.   begin
  11.     positive:=A[i]>0.0;
  12.     i:=i+1
  13.   end;
  14.   if positive then
  15.     writeln('Положительны')
  16.   else
  17.     writeln('Есть отрицательные')
  18. end.
Поделиться:

Похожие статьи:

теги: студенты, одномерный массив, массив, консольное приложение