Дана строка, разделить строку на слова. Вывести слова, которые не содержат цифр в алфавитном порядке. Паскаль

207

431

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

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

IvanShadow

Информатика

4,4(43 оценок)

Const n=5; type mas=array[1..n] of integer; var max,min: integer; function avg(a: mas): real; var i: integer; s: real; begin max: =a[1]; min: =max; s: =max; for i: =2 to n do begin s: =s+a[i]; if a[i]> max then max: =a[i] else if a[i]< min then min: =a[i] end; avg: =(s-min-max)/3 end; var m: mas; i: integer; p: real; begin for i: =1 to n do read(m[i]); p: =avg(m); writeln(min,' ',max); writeln(p: 4: 2) end. тестовое решение: 8 9 7 5 8 5 9 7.67