Регистрация
vano22312231
03.07.2022 09:11
Информатика
Есть ответ 👍

cрочно ,нужно написать программы. 1.дан массив содержащий 15 элементов ,найти сумму максимального и минимального элементов. 2.найти среднее арифметическое элементов массива.

270
428
Посмотреть ответы 2

Ответы на вопрос:

ulpashkova
ulpashkova
4,8(49 оценок)
Var   arr: array[1..15] of integer;   min, max, i, sum: integer; begin   min : = maxint;   max : = -(maxint);   for i : = 1 to 15 do   begin       readln(arr[i]);       if arr[i] > max then max : = arr[i];       if arr[i] < min then min : = arr[i];       sum : = sum + arr[i];   end;   writeln('сумма максимального и минимального элементов = ', max + min);   writeln('среднее арифметическое элементов массива = ', sum/15); end.
annykovaleva
annykovaleva
4,6(93 оценок)
Мёд+ведь=медведь я уверен

Популярно: Информатика