напишите программу анализа значений хворого за день обусловьте наибольшее и минимальное
Напишите программу анализа значений больного за день определите наибольшее и малое значения, среднее арифметическое замеры температуры проводят шесть раз в день и результаты вводятся с клавиатуры в массив Т
Задать свой вопрос
Геннадий
В какой программке надобно, Кумир, Pascal
1 ответ
Владик Хлопцов
Вот TURBO PASCAL
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 uses crt; var i,sum,tmax,tmin:integer;sred:real; t:array [1..30] of integer; begin clrscr; sum:=0; writeln('vvedite T -gt; '); for i:=1 to 6 do begin write(i,' zamer t = '); read(t[i]); end; tmax:=t[1]; tmin:=t[1]; for i:=2 to 6 do begin if t[i]gt;tmax then tmax:=t[i]; if t[i]lt;tmin then tmin:=t[i]; end; for i:=1 to 6 do sum:=sum+t[i]; sred:=sum/6; writeln('Max T = ',tmax); writeln('Min T = ',tmin); writeln('srednyaya T = ',sred:3:3); readkey; end
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 uses crt; var i,sum,tmax,tmin:integer;sred:real; t:array [1..30] of integer; begin clrscr; sum:=0; writeln('vvedite T -gt; '); for i:=1 to 6 do begin write(i,' zamer t = '); read(t[i]); end; tmax:=t[1]; tmin:=t[1]; for i:=2 to 6 do begin if t[i]gt;tmax then tmax:=t[i]; if t[i]lt;tmin then tmin:=t[i]; end; for i:=1 to 6 do sum:=sum+t[i]; sred:=sum/6; writeln('Max T = ',tmax); writeln('Min T = ',tmin); writeln('srednyaya T = ',sred:3:3); readkey; end
Егор Цецера
uses crt;var i,sum,tmax,tmin:integer;sred:real;t:array [1..30] of integer;beginclrscr;sum:=0;writeln('vvedite T -> ');for i:=1 to 6 do beginwrite(i,' zamer t = ');read(t[i]);end;tmax:=t[1];tmin:=t[1];for i:=2 to 6 do beginif t[i]>tmax thentmax:=t[i];if t[i] 4 && number % 100 < 20) ? 2 : cases[(number % 10 < 5) ? number % 10 : 5]];
}
Облако тегов