 |
|
|
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 |
