Паскаль. Количество осадков, выпавших за каждый день января хранится в массиве. Определить количество дней, в которые выпало осадков больше, чем в среднем за один день месяца и напечатать их дату (число месяца). Пожалуйста.
More Questions From This User See All
Answers & Comments
Ответ:
program prog;
var
r:array[1..31] of real = (1.4,1.3,1.8,1.7,1.8,0.9,1.3,1.4,1.9,1.5,1.9,1.5,2.3,0.3,2.2,1.2,1.3,1.4,1.9,2.1,2.2,2.0,0.8,1.2,1.9,1.4,1.6,2.4,3.0,1.9,2.5);
s:real=0;
i:integer;
begin
for i:=1 to 31 do s:=s+r[i]/31;
writeln('Среднее значение осадков равно ', s:0:3);
writeln('Больше среднего значения осадков выпало в эти числа Января:');
for i:=1 to 31 do if r[i] > s then write(i, ' ');
end.
Var a: array [1..31] of real;
i:integer;
cr: real;
Begin
For i:=1 to 31 do begin
Writeln('введите количество осадков за ',i,' число');
Readln (a[i]);
Cr:=cr+a[i];
end;
Cr:=cr/31;
write('Среднее значение осадков равно ',cr);
For i:=1 to 31 do
writeln('больше среднего выпало:');
if a[i]>cr then write(i,' ');
end.