const d = 31;
var
a: array[1..d] of integer;
i, count, mdl: integer;
begin
for i := 1 to d do begin
a[i] := random(31);
write(a[i], ' ');
mdl := mdl + a[i];
end;
writeln;
writeln('Средняя температура: ', (mdl / d):0:2);
for i := 1 to d do
if(a[i] > mdl / d) then inc(count);
writeln('Дни, в которые температура была выше средней: ', count);
end.
<span>=А1+А2 (арифмитическое сложение)</span>
Python code:
1)
<span>print("Zadacha 1")
x = float(input("Vvedite x"))
if x >= 0:
y = 7 * x - 3
print(y)
else:
y = 2 * (x * x * x)
2)
<span>print("Zadacha 2")
a = float(input("Vvedite result pervogo"))
b = float(input("Vvedite result vtorogo"))
c = float(input("Vvedite result tretego"))
if (a > b) and (a > c):
print(a)
if (b > a) and (b > c):
print(b)
if (c > a) and (c > b):
print(c)
3)
print("Zadacha nomer 3")
b = float(input("Vedite B"))
if b > 3:
b = b - 5
print(b)
else:
b = 2 * b
print(b)</span></span>
<em>// PascalABC.NET 3.2, сборка 1353 от 27.11.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
// заполним информацию случайным образом;
// если хорошистов в результате не окажется,
// просто перезапускаем задачу
randomize;
var a:=MatrRandom(13,10,4,5); // везде только 4 и 5
for var i:=1 to 20 do // раскидаем 20 троек
a[Random(13),Random(10)]:=3;
a.Println(2); Writeln;
// собственно, решение
var k:=0;
foreach var r in a.Rows do
if r.All(x->x<>3) and not r.All(x->x=5) then k+=1;
Writeln(k,' хорошистов')
end.
<u>Пример</u>
5 5 4 4 4 5 3 3 4 4
5 4 4 4 3 4 5 5 4 5
5 5 5 3 5 4 4 5 5 4
3 5 4 3 4 4 5 5 5 3
5 3 4 4 5 4 4 5 5 4
3 5 5 5 5 4 4 4 4 3
4 4 5 3 5 4 4 5 4 5
4 5 4 4 4 4 4 4 5 4
3 5 3 4 4 4 4 4 5 3
5 5 4 5 4 4 4 5 4 5
4 5 4 5 4 5 3 4 5 5
4 5 4 4 4 4 5 4 4 5
4 3 5 4 4 4 5 5 3 5
3 хорошистов