Простые задачи Pascal ABC - 18 Мая 2012 - Сайт заготовки для Дельфи&Pascal

Главная » 2012 » Май » 18 » Простые задачи Pascal ABC

16:43 Простые задачи Pascal ABC
{задать целочисленный массив из отрезка (-5,5).подсчитать число ненулевых элементов} uses crt; const ncount=15; var a:array [1..ncount] of integer; x:integer; sumI:integer; begin ClrScr; sumI:=0; for x:=1 to ncount do begin a[x]:=-5+random(11); Write(a[x]:3,' '); if a[x]>=0 then sumI:=sumI+1; end; Writeln(''); Writeln('Число ненулевых элементов ',sumI); end.
1 2 3 4 5 Просмотров: 1889 \| Добавил: NetSoftWare \| Теги: Pascal, Pascal ABC \| Рейтинг: 0.0/0

Delphi заготовки