Вот тебе простой вариант ришение задачи (коментар=пояснение)
PascalВыделить код
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 program prg; uses crt; var rez,chislo,min,max:integer; begin Write('Enter number = ');readln(chislo); //zanosim 1 chislo max:=chislo; //v max ta min min:=chislo; //chtobu potom mu soukb sravnivat s drugimi chislamu while (chislo<>0) do //zapuskaem zikl poka mu ne napishem 0 begin if (chislo>max)then max:=chislo; //sravnivaem s max if (chislo<min) then min:=chislo; //sravnivaem s min readln(chislo); //snova pihem chislo end; rez:=(max-min); //nahodim raznizy writeln('max(',max,') - min(',min,') = ',rez); //otvet end.
main() int N = 10, count = 0, z = 5, i; int m[N]; double res = 0
for(i = 0, i < N, i++) if ((m[i] >= -3) && (m[i] <= 3)) { count++; res = res + m[i]; }
if (count == 0) res = 0; else res = res / count;
if (res > z) { res = 0; for(i = 0; i < N; i++) if (m[i] % 2 == 0) res = res + m[i]; } else { res = 1; for(i = 0; i < N; i++) if (m[i] % 2 != 0) res = res * m[i]; }
printf("Z = %f", res); }
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку