Задачи на Pascal/Object Pascal/Free Pascal (Delphi/Lazarus) - [802] :: Прикладное программирование

Новости • Файловые архивы
Поиск • Активные темы • Топ лист
Правила • Кто в on-line?

Вход • Забыли пароль? • Первый раз на этом сайте? • Регистрация

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Задачи на Pascal/Object Pascal/Free Pascal (Delphi/Lazarus)

Модерирует : ShIvADeSt
Версия для печати • Подписаться • Добавить в закладки
На первую страницу • к этому сообщению • к последнему сообщению

autumn_orion

Junior Member

program task2;
const N=10;
var y:array [1..10] of double;
i,cnt:Integer;
ysum:double;
begin
y[1]:=-0.2312;
y[2]:=0.2312;
y[3]:=10.2312;
y[4]:=3.3;
y[5]:=-40;
y[6]:=2.312;
y[7]:=0.245;
y[8]:=-0.232;
y[9]:=312312.0;
y[10]:=0.444;
ysum:=0;
for i:=1 to N do
if (y[i]<0) then ysum:=ysum+y[i];
writeln (ysum);
readln;
end.

Всего записей: 157 | Зарегистр. 09-08-2002 | Отправлено: 16:30 02-04-2007 | Исправлено: autumn_orion, 16:34 02-04-2007

На первую страницу • к этому сообщению • к последнему сообщению

Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC