Для массива а1, а2, а3 … а15 найти разность между средним арифметическим элементов м?
Для массива а1, а2, а3 … а15 найти разность между средним арифметическим элементов м??ссива и наименьшим из них.
Гость
Ответ(ы) на вопрос:
Гость Pascal
var a:array[1..15] of integer;
s,i:integer;
begin
for i:=1 to 15 do
read(a[i]);
s:=(a[1] + a[15])/2;
if (a[2]-a[1]) >= 0 then writeln(s - a[1]) else writeln(s - a[15]);
end.
Не нашли ответ?
Похожие вопросы