Const n = 5; var a: array[1..n] of integer; i, k: integer; s: real; begin s : = 0; for i : = 1 to n do begin readln(a[i]); s : = s + a[i]; end; s : = s / n; writeln('среднее значение = ', s: 0: 3); k : = 1; for i : = 2 to n do if abs(a[k] - s) > abs(a[i] - s) then k : = i; writeln('индекс элемента: ', k, ' значение = ', a[k]); end.
jenko87
29.03.2021
Backspace - удаление последней цифры отображаемого числа; ce - удаление отображаемого числа; c - очистка калькулятора для новых вычислений; mc - очистка памяти; mr - замена отображаемого числа числом, хранящимся в памяти. содержимое памяти не меняется; ms - занесение отображаемого числа в память; m+ - прибавление отображаемого числа к числу, хранящемуся в памяти. сумма этих чисел не отображается; m - индикатор использования памяти буквой "m"
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Переложи одну спичку в правой части каждого из числовых равенств так, чтобы получилось верное равенство. vi=v+iii; vi=vii+ii