Посчитайте средний расход бензина за 5-ое октября. В электронную таблицу занесли информацию о грузоперевозках,
совершённых некоторым автопредприятием с 1 по 9 октября.
Каждая строка таблицы содержит запись об одной перевозке. В столбце A
записана дата перевозки (от «1 октября» до «9 октября»); в столбце B —
название населённого пункта отправления перевозки; в столбце C —
название населённого пункта назначения перевозки; в столбце D —
расстояние, на которое была осуществлена перевозка (в километрах); в
столбце E — расход бензина на всю перевозку (в литрах); в столбце F —
масса перевезённого груза (в килограммах).
1)Всего в электронную таблицу были занесены данные по 370
перевозкам в хронологическом порядке.
2)Выполните задание:
Откройте файл с данной электронной таблицей. На основании данных,
содержащихся в этой таблице, ответьте на вопрос в соответствующей ячейке
таблицы:
Const
N = 30;
Var
A:array[1..N] of integer;
i,Max,kMax:integer;
Begin
Randomize;
Write('Исходный массив:');
For i:= 1 to N do
Begin
A[i]:=random(N);
Write(' ',A[i]);
End;
WriteLn;
{Нахождение максимума}
Max:=A[1];
For i:= 2 to N do
if A[i]>Max then Max:=A[i];
WriteLn('Max = ',Max);
{Подсчёт максимумов}
kMax:=0;
For i:= 1 to N do
if A[i] = Max then kMax:=kMax+1;
WriteLn('kMax = ',kMax);
End.
Пример:
Исходный массив: 11 13 9 8 19 9 22 29 0 23 6 26 14 21 24 24 26 26 23 13 12 20 1 21 0 27 25 28 13 0
Max = 29
kMax = 1
2.
Const
N = 30;
Var
A:Array[1..N] of integer;
i,SMax,iSMax:integer;
Begin
Randomize;
Write('Исходный массив:');
For i:= 1 to N do
Begin
A[i]:=random(N);
Write(' ',A[i])
End;
WriteLn;
iSMax:=1;
SMax:=A[1]+A[2]+A[3];
For i:= 3 to N-2 do
if A[i]+A[i+1]+A[i+2]>SMax then
Begin
iSMax:=i;
SMax:=A[i]+A[i+1]+A[i+2];
End;
WriteLn('Номера элементов, сумма которых максимальна: ',iSMax,', ',iSMax+1,', ',iSMax+2);
WriteLn('Максимальная сумма = A[',iSMax,'] + A[',iSMax+1,'] + A[',iSMax+2,'] = ',SMax)
End.
Пример:
Исходный массив: 15 13 25 8 4 4 8 20 26 25 25 7 27 16 28 18 26 24 17 20 7 15 10 12 18 13 22 19 4 25
Номера элементов, сумма которых максимальна: 9, 10, 11
Максимальная сумма = A[9] + A[10] + A[11] = 76
from random import randint
n = 100
arr = [randint(20, 100) for _ in range(n)]
even = len([n for n in arr if n % 2 == 0])
odd = len([n for n in arr if n % 2 != 0])
print(*arr)
print('Even:', even)
print('Odd:', odd)
Пример вывода:
29 54 28 65 20 21 66 78 95 22 87 44 61 92 25 26 57 40 67 22 91 62 38 21 44 30 54 82 54 72 72 54 68 52 21 79 85 59 62 47 62 37 80 59 36 30 87 55 39 100 36 33 66 91 27 76 40 100 47 31 73 72 93 62 38 57 85 87 26 52 34 65 56 51 21 22 65 85 58 87 95 67 70 75 30 68 44 35 85 87 92 98 76 52 85 57 20 68 37 67
Even: 53
Odd: 47
(2)
from random import randint
n = 100
arr = [randint(1000, 2000) for _ in range(n)]
numbers = [int(str(n)[-2]) for n in arr]
count = len([n for n in numbers if n % 2 == 0])
print(*arr)
print('Answer:', count)
Пример вывода:
1689 1009 1036 1513 1801 1652 1382 1004 1172 1258 1876 1410 1439 1597 1364 1720 1672 1704 1571 1887 1716 1952 1180 1818 1528 1385 1976 1088 1939 1238 1519 1121 1505 1422 1713 1651 1723 1330 1537 1139 1907 1561 1866 1345 1009 1400 1999 1207 1431 1704 1604 1434 1062 1830 1897 1753 1735 1247 1673 1683 1628 1446 1758 1598 1326 1627 1987 1085 1695 1324 1543 1680 1237 1013 1476 1145 1258 1991 1163 1963 1103 1589 1616 1418 1823 1668 1250 1738 1413 1690 1947 1719 1727 1528 1910 1903 1239 1065 1403 1258
Answer: 51