06.03.2015, 00:16 | #1 (ссылка) |
Новичок
Регистрация: 05.03.2015
Сообщений: 1
Репутация: 0
|
Помогите,пожалуйста, создать программу в Паскале, срочно
Массив, состоящий из 12 элементов, заполните случайными целыми числами из промежутка от -5 до 5. Выведите его на экран монитора. Найдите сумму элементов массива и распечатайте на новой строке.
Случайное число из промежутка [-5;5;] будет задано формулой: Random(11)-5 Сумму следует искать в цикле по формуле: S:=S+X(I) Надо учесть также, что начальное значение величины S должно быть равно 0. ---------- Добавлено в 23:04 ---------- Предыдущее сообщение было написано в 22:29 ---------- Кто-нибудь помогите, пожалуйста ---------- Добавлено в 23:16 ---------- Предыдущее сообщение было написано в 23:04 ---------- Пожалуйста, помогите |
06.03.2015, 07:42 | #2 (ссылка) |
Стажёр
Регистрация: 04.01.2013
Сообщений: 490
Репутация: 57
|
Anya110,
Код:
program q; uses crt; var x:array[1..12] of integer; i:byte; s:integer; begin clrscr; randomize; writeln('Massiv:'); for i:=1 to 12 do begin x[i]:=random(11)-5; write(x[i]:3); s:=s+x[i]; end; writeln; writeln('Summa = ',s); readkey; end. |
Ads | |
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1) | |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите написать программу в С++(в консоли) или в Паскале. Очень срочно нужно. | Registr | Программирование | 2 | 27.09.2012 14:58 |
Помогите составить программу на Паскале пожалуйста | nikitofaction | Программирование | 0 | 10.12.2011 02:08 |
Помогите пожалуйста составить программу на Паскале! | Shokker | Программирование | 2 | 29.05.2011 22:51 |
Помогите пожалуйста составить программу на Паскале! | Shokker | Программирование | 0 | 29.05.2011 22:50 |
помогите пожалуйста написать программу , в паскале | mitya | Программирование | 1 | 19.05.2011 20:57 |