Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 29.05.2011, 18:36   #1
Di_nusya
Новичок
Джуниор
 
Регистрация: 29.05.2011
Сообщений: 2
Вопрос Вычислить сумму неотрицательных эл-ов массива чисел , содержащих n эл-ов.

Вычислить сумму неотрицательных эл-ов массива чисел , содержащих n эл-ов.Проверьте пожалуйста...
Код:
program summa;
uses crt ;
  const n=20;
  var 
 m : array [1..n] of byte;
 i,sum : integer ;
begin 
clrscr;
randomize;
   begin
   sum:=0;
   m[i]:=random(60);
       for i:=1 to n do 
           if m[i] > 0 then 
                sum:=sum+m[i];
end;
writeln(sum:3);
readln;
end.

Последний раз редактировалось Stilet; 29.05.2011 в 20:02. Причина: не уточнила причину обращение
Di_nusya вне форума Ответить с цитированием
Старый 29.05.2011, 19:03   #2
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

Перед m[i]:=random(60); забыли цикл. И перед этим begin непонятно к чему.
И используйте тег [CODE] (значок #) для сохранения форматирования и подсветки кода в сообщении.
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума Ответить с цитированием
Старый 29.05.2011, 19:25   #3
Di_nusya
Новичок
Джуниор
 
Регистрация: 29.05.2011
Сообщений: 2
По умолчанию

сглупила немного , спасибо ))
Di_nusya вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вычислить сумму чисел. ilnar51 Паскаль, Turbo Pascal, PascalABC.NET 6 13.03.2011 14:29
Вычислить сумму всех простых чисел denicko Помощь студентам 0 27.10.2010 20:46
вычислить сумму положительных элементов массива Rapira Помощь студентам 3 15.10.2010 13:25
Вычислить сумму всех четных чисел в векторе malova Microsoft Office Excel 2 31.05.2010 09:09
задание. Вычислить сумму чисел кратных 7 которые меньше 400 sunny5442 Помощь студентам 12 27.05.2010 07:34