1.написать программу нахождения наибольшего из трёх чисел. 2.написать программу нахождения суммы цифр натурального числа 3.дан одномерный массив из 20 элементов.диапазон значений от -10 до 15.написать программу вычислений количества элементов массива равных среднему арифметическому этого массива. ,! хотя бы что-нибудь из этого! : )

181

404

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

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

belakova

Информатика

4,7(33 оценок)

Могу первое. program more; uses crt; var s,x,y,z: real; begin; clrscr; write('enter x: '); readln(x); write('enter y: '); readln(y); write('enter z: '); readln(z); {debug} if (x+y)=(x+z) then begin writeln('x=y=z'); readkey; exit; end {end debug} s: =x; if s< y then s: =y; if s< z then s: =z; writeln('max: ', s,'.'); readkey; end.