дан список чисел. Напишите программу выводящую на экран числа которые больше предыдущих

122

241

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

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

Linamouse

Информатика

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

//прога на pascal`e type myrec = record rost : byte; ves : byte; end; var mas : array of myrec; n, i : byte; sumves, sumrost : longint; begin write ('введите кол-во учеников: '); readln (n); setlength (mas, n); for i: =0 to n-1 do begin write ('введите вес ', i+1, '-го ученика: '); readln (mas[i].ves); inc (sumves, mas[i].ves); write ('введите рост ', i+1, '-го ученика: '); readln (mas[i].rost); inc (sumrost, mas[i].rost); end; write ('средний вес учеников: ', sumves / n, '; средний рост: ', sumrost / n) end.