Lako
6 год назад
Формировать десять случайных чисел ,от 5до 20,вычислить их сумму. паскаль.
ОТВЕТЫ
Raanyuk
Jul 3, 2019
// PascalABC.NET 3.2, сборка 1370 от 24.12.2016
// Внимание! Если программа не работает, обновите версию!
begin
Writeln(s=,ArrRandom(10,5,20).Println.Sum)
end.
Пример
9 14 6 6 20 16 12 11 8 5
s=107
// Внимание! Если программа не работает, обновите версию!
begin
Writeln(s=,ArrRandom(10,5,20).Println.Sum)
end.
Пример
9 14 6 6 20 16 12 11 8 5
s=107
Program srand;
const
C = 10;
var
s, i: integer;
begin
s := 0;
for i := 1 to C do
s := s + (random(16) + 5);
writeln(s);
end.
const
C = 10;
var
s, i: integer;
begin
s := 0;
for i := 1 to C do
s := s + (random(16) + 5);
writeln(s);
end.
220
Смежные вопросы:
