Найти среднее значение элементов массива из 5 целых чисел.отсортировать массив простой выборкой.

134

467

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

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

Pomawkal

Информатика

4,5(78 оценок)

//pascal var a: array [1 .. 5] of integer; k, buf, i, j: integer; arithmean: real; begin for i : = 1 to 5 do begin write('a[', i, '] = '); readln(a[i]); arithmean : = arithmean + a[i]; end; for i : = 1 to 5 - 1 do begin k : = i; for j : = i + 1 to 5 do if a[j] < a[k] then k : = j; buf : = a[i]; a[i] : = a[k]; a[k] : = buf; end; for i : = 1 to 5 do write(a[i]: 4); writeln; writeln('среднее арифметическое = ', (arithmean / 5): 0: 2); end.