Const nx = 20; var A:array[1..nx]of integer; i,n:integer; sum:double; begin write('Введите число элементов');Readln(n); for i:=1 to n do begin A[i]:= random(100)-50;write(A[i]:5); sum:= sum + i * A[i];end; writeln;write('sum = ', sum);end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
