найти сумму элементов массива размерностью 100. Элементы задаются случайным образом (от 0 до 50).
Выполнить в паскале.
Даю 20 баллов
Ответы
Ответ дал:
0
// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(100,0,50); a.Println;
Writeln('S=',a.Sum)
end.
Пример
10 44 42 31 39 9 1 24 19 43 7 43 22 28 24 43 39 48 42 31 29 6 18 12 27 50 22 46 18 4 28 27 14 22 33 49 0 13 11 31 10 4 21 24 30 33 25 26 2 3 15 40 8 23 50 3 26 29 4 40 37 6 6 15 15 30 28 50 46 25 43 26 36 10 20 25 36 44 33 45 24 47 43 15 40 38 19 41 23 29 23 21 8 22 44 4 48 6 9 50
S=2595
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(100,0,50); a.Println;
Writeln('S=',a.Sum)
end.
Пример
10 44 42 31 39 9 1 24 19 43 7 43 22 28 24 43 39 48 42 31 29 6 18 12 27 50 22 46 18 4 28 27 14 22 33 49 0 13 11 31 10 4 21 24 30 33 25 26 2 3 15 40 8 23 50 3 26 29 4 40 37 6 6 15 15 30 28 50 46 25 43 26 36 10 20 25 36 44 33 45 24 47 43 15 40 38 19 41 23 29 23 21 8 22 44 4 48 6 9 50
S=2595
Ответ дал:
0
Спасибо большое !
Ответ дал:
0
Пожалуйста
Ответ дал:
0
А через randomize можете сделать ?
Ответ дал:
0
Я не понимаю этого Вашего "через randomize". Вызов ArrRandom не требует использовать randomize
Ответ дал:
0
Но если он Вам так нравится, допишите его после begin )))
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад
9 лет назад