Const n=30; var a:array[1..n] of integer; i,min,max,s:integer; sr:real; begin Randomize; writeln('Массив A:'); for i:=1 to n do begin a[i]:=random(11)+10; write(a[i]:6); end; writeln; min:=a[1]; max:=a[1]; s:=a[1]; for i:=2 to n do begin if a[i]<min then min:=a[i]; if a[i]>max then max:=a[i]; s:=s+a[i]; end; sr:=s/n; writeln('min = ',min,' max = ',max,' sr = ',sr); s:=0; for i:=1 to n do write(a[i]-sr:6:1); end.
Пример (для 10 дней): Массив A: 11 16 19 15 13 19 11 16 17 17 min = 11 max = 19 sr = 15.4 -4.4 0.6 3.6 -0.4 -2.4 3.6 -4.4 0.6 1.6 1.6
Истинные: 1. Земля круглая 2. Лето наступает после весны 3. Когда идет дождь - земля наполняется влагой 4. Москва - столица России 5. Если горит красный сигнал светофора - оставайся на месте 6. Сахар сладкий 7. Арбуз - это ягода 8. Лимон кислый 9. Осенью опадает листва на деревьях 10. 1 января начинается Новый год. Ложные высказывания: 1. Коровы летают 2. 2+2=5 3. Информатика - наука о рыбах 4. Глаза - органы слуха 5. Киев - столица Ирландии 6. Год заканчивается летом 7. Когда наступает ночь - светит солнце 8. Солнце вращается вокруг Земли 9. Черепаха - самое быстрое животное в мире 10. Соль горькая
var a:array[1..n] of integer;
i,min,max,s:integer; sr:real;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(11)+10;
write(a[i]:6);
end;
writeln;
min:=a[1]; max:=a[1];
s:=a[1];
for i:=2 to n do
begin
if a[i]<min then min:=a[i];
if a[i]>max then max:=a[i];
s:=s+a[i];
end;
sr:=s/n;
writeln('min = ',min,' max = ',max,' sr = ',sr);
s:=0;
for i:=1 to n do write(a[i]-sr:6:1);
end.
Пример (для 10 дней):
Массив A:
11 16 19 15 13 19 11 16 17 17
min = 11 max = 19 sr = 15.4
-4.4 0.6 3.6 -0.4 -2.4 3.6 -4.4 0.6 1.6 1.6