program q; var m:array[1..5] of integer; sum, j:integer; begin sum:=0 for j=1 to 5 do begin write('введите ',j ,'элемент массива: '); readln(m[j]); sum:=sum+m[j] end; sum:=sum/5; writeln(sum) end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
