Вопрос по информатике:
Найти сумму пяти элементов массива случайными числами из интервала [-20;20] Массивом плиз
Пожаловаться
- 26.05.2018 10:03
- Информатика
- remove_red_eye 18842
- thumb_up 14
Ответы и объяснения 1
Const
N = 5;
Var
A:array[1..N] of integer;
i:integer;
S:real;
Begin
Randomize;
S:=0;
Write('Исхдный массив:');
For i:= 1 to N do
Begin
A[i]:=random(41)-20;
Write(' ',A[i]);
S:=S+1;
End;
WriteLn;
WriteLn('Сумма элементов: ',S);
End.
N = 5;
Var
A:array[1..N] of integer;
i:integer;
S:real;
Begin
Randomize;
S:=0;
Write('Исхдный массив:');
For i:= 1 to N do
Begin
A[i]:=random(41)-20;
Write(' ',A[i]);
S:=S+1;
End;
WriteLn;
WriteLn('Сумма элементов: ',S);
End.
Пожаловаться
- 27.05.2018 06:46
- thumb_up 3
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы