Найти сумму элементов массива состоящего из 10 элементов. Элементы массива згенерировать в диапазоне от 50 до 100. Решить с одним for!
Найти сумму элементов массива состоящего из 10 элементов. Элементы массива згенерировать в диапазоне от 50 до 100. Решить с одним for!
Гость
Ответ(ы) на вопрос:
Гость//Вроде бы знакомый аватар...
//Соглашусь с предыдущим оратором, решается в 3 строки без циклов
//Pascal ABC.NET v3.0 сборка 1111
Const
n=10;
var
ar:array[1..n] of integer;
sum,i:integer;
begin
randomize;
for i:=1 to 10 do
begin;
ar[i]:=random(50,100);
sum+=ar[i];
write(ar[i]:4);
end;
writeln;
write('Sum=',sum);
end.
Гость// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
begin
var a:=ArrRandom(10,50,100); a.Println(', ');
var s:=0;
for var i:=0 to 9 do s+=a[i];
Writeln('s=',s)
end.
Тестовое решение:
64, 59, 67, 54, 90, 51, 94, 70, 65, 82
s=696
"Школьный" вариант:
// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
var
a:array[1..10] of integer;
i,s:integer;
begin
Randomize;
s:=0;
for i:=1 to 10 do begin
a[i]:=Random(51)+50;
Write(a[i],' ');
s:=s+a[i]
end;
Writeln;
Writeln('s=',s)
end.
Тестовое решение:
82 88 94 65 73 94 86 56 91 60
s=789
И, чтобы не быть голословным, современный вариант:
// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
begin
Writeln('s=',ArrRandom(10,50,100).Println.Sum)
end.
Тестовое решение:
94 90 70 85 62 58 94 73 67 97
s=790
Не нашли ответ?
Похожие вопросы