Const nx =50;var n,sum,i:integer;R:Array[1..25] of integer;Beginwrite('Введите количество элементов n ');Read(n);for i:=1 to n do beginR[i]:= random(10)-5;write(R[i]:3);sum:= sum +R[i];end;writeln;write('Сумма всех чисел = ',sum)end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
