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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 03.12.2016, 00:38   #1
Godnub
 
Регистрация: 28.11.2016
Сообщений: 3
По умолчанию (Pascal) Дан одномерный массив чисел. Определите сумму его элементов

Дан одномерный массив чисел. Определите сумму его элементов.(Pascal)

Последний раз редактировалось Вадим Мошев; 04.12.2016 в 13:04.
Godnub вне форума Ответить с цитированием
Старый 04.12.2016, 10:49   #2
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Код:
var p:array[1..10] of integer;
    i,s:integer;
begin
   Randomize;
   For i:=1 to 10 do
   begin
      p[i]:=Random(21);
      Write(p[i]:2,'  ');
   end;
   Writeln;
   Writeln;
   s:=0;
   For i:=1 to 10 do
      s:=s+p[i];
   Writeln(s);
   Readln;
end.
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Дан одномерный массив чисел. Определите сумму его элементов(PascalABC.net) Godnub Помощь студентам 3 29.11.2016 16:55
Java: Дан двумерный массив чисел А размером 6х6 и одномерный массив Х из 6-ти чисел. Заменить первые три строки массива A vikysha55 Помощь студентам 1 16.04.2014 10:50
Дан одномерный массив из 10 целых чисел заполненный случайным образом. denpanov Помощь студентам 3 31.10.2012 21:42
4. Дан одномерный массив. Найдите разность наибольшего и наименьшего чисел в этом массиве. Иван_lk Помощь студентам 0 31.05.2011 20:46
Дан двумерный массив случайных чисел. Построить одномерный из исходного, выбрав из него все числа кратные ProWinD Паскаль, Turbo Pascal, PascalABC.NET 2 16.06.2008 20:12