Сна паскале дан одноименный массив а. определить среднее арифметическое положительных и четных элементов больших 6.

289

428

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

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

Snezhana206

Информатика

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

Проверяй все элементы на четность и в то же время больше ли они 6 и на положительность заноси ето в отдельную сменную и находи среднее арифметическое чтобы узнать число элементов которые проходять условие в then запиши переменную к которой будет добавлятся +1

BroKeNxHeArT

Информатика

4,6(92 оценок)

1)var a,b,c: integer; begin writeln('введите возраст 1 друга'); readln(a); writeln('введите возраст 2 друга'); readln(b); writeln('введите возраст 3 друга'); readln(c); if (a> b) and (a> c) then writeln('старшим является 1 друг') else if (b> a) and (b> c) then writeln('старшим является 2 друг') else writeln('старшим является 3 друг'); end.2)var a,b: integer; begin writeln('введите возраст 1 друга'); readln(a); writeln('введите возраст 2 друга'); readln(b); if a> b then writeln('старшим является 1 друг') else writeln('старшим является 2 друг'); end.