В заданном массиве A

Задание:

В заданном массиве A (n) определить среднее арифметическое значение минимума и максимума. Если таких элементов нет, вывести на экран дисплея сообщение"вы ввели не число» .

Решение:

vara: array [1… 100] of integer; i,ma,mi,n,s: integer; beginreadln (n); for i: =1 to n doread (a[i]); ma: =1; mi: =1; for i: =2 to n do beginif a[i]a[ma] thenma: =i; end; if mi=ma thenwrite ('вы ввели не число') elsewrite (mi+ma) /2); end.

Знаете другой ответ?

Отправить свой ответ