В массиве хранится информация о температуре с 1-го по 15 сентября текущего года (заполнить случайными числами из[-4;+19]).
5-9 класс
|
а) в какой день температура была максимальной и какой именно?
б) в какой минимальной? Какой?
в) чему равна температура за первую половину сентября?
г)сколько дней температура была ниже средней? В каких чтслах температура это было?
в 3 пункте непонятно. "чему равна температура за первую половину сентября?"
Средняя температура? Половина сентября? в задаче и так прдставлен массив половины сентября - с 1 по 15 число.
uses crt;
const n=15;
var max,min,i,k:integer;
sr:real;
a:array[1..n] of integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(23)-4;
write(a[i]:3);
end;
writeln;
max:=-4;
for i:=1 to n do
if a[i]>max then
begin
max:=a[i];
k:=i;
end;
writeln('a)',k,' day ',max,'temperature');
min:=19;
for i:=1 to n do
if a[i]<min then
begin
min:=a[i];
k:=i;
end;
writeln('a)',k,' day ',min,'temperature');
sr:=0;
for i:=1 to n do
sr:=a[i]+sr;
sr:=sr/n;
writeln('средняя температура за половину сентября ',sr);
k:=0;
for i:=1 to n do
if a[i]<sr then begin inc(k); writeln(i,'сентября'); end;
writeln(k);
end.
Другие вопросы из категории
Дана строка текста. Слова могут быть разделены несколькими пробелами. Удалить из строки "лишние" пробелы.
"Лишние" - это пробелы в начале и конце строки, а также более одного пробела между словами.
параметром. Зарание, спасибоо!!!!!
сумму первых N
слагаемых 12+22-32+42+52-62+…(каждое
третье слагаемое берется со знаком «минус»).
Читайте также
декабре было дней с нулевой, отрицательной и положительной температурой
отрицательной и положительной температурой.