PascalABC.NET
type mass = array [1..4] of integer;
var a : mass;
i : integer;
function min(c : mass) : integer;
var
i,minim : integer;
begin
minim := c[1];
for i := 2 to 4 do
if c[i] < minim then
minim := c[i];
result := minim;
end;
begin
for i := 1 to 4 do
readln (a[i]);
writeln ('min = ',min(a));<span>
end.
Как параметр я использовал массив из четырех элементов. Можно использовать просто переменные и через IF все прописать</span>
1)10+3*16+6*16^2+13*16^3+12*16^4
2)12+12*16
3)4+15*16+13*16^2+6*16^3=+10*16^4+11*16^5
Var
n,i,k,m:integer;
x:real;
a:array[1..100]of real;
begin
//read(n);
n:=12;
for i:=1 to n do
read(a[i]) ;
read(k,m);
x:=a[k];
a[k]:=a[m];
a[m]:=x;
for i:=1 to n do
write(a[i]:1:6,' ');
readln;readln;
<span>end.</span>
. Помним, что один символ текста занимает 1 байт. Значит, информационный объём данного текста равен: 1байт⋅5=5байтов. Занимаемый объём на флэш - диске: <span>32 Кбайт</span>, т.к. <span>на флэш-диске используется файловая система FAT32 и этот файл будет занимать один кластер, объём которого равен 32 Кбайт.</span>
Ответ:
count = 0
for i in range(int(input()):
num = int(input())
if num > 150:
count += 1
print(count)
