Program zadacha;
var
k,x,i,n:integer;
m:Array[1..100] of Integer;
begin
k:=0;
readln(n);
for i:=1 to n do begin
readln(m[i]);
end;
for i:=2 to n do begin
if m[i]>m[1] then k:=k+1;
end;
write(k);
<span>end.</span>
Решение першого с объяснением
Program Dujm
<span>
</span>
var a,res: real;
<span>
</span>
begin
writeln('Vvedite dlinu v sm');
readln(a);
res:=a/2.5;
writeln(a,' sm v dujmah ravno
',res:5:2);
readln;
end.
Родовое понятие это "компьютерный символ"
поставь стрелочки от всех слов к "компьютерному символу"
Смотря КАК даны числа.
Если каждое число даётся отдельно, то:
<em>a, b, c, d, e, rez = int(input()), int(input()), int(input()), int(input()), int(input()), 0</em>
<em>q = [a, b, c, d, e]</em>
<em>for i in q:</em>
<em> if i < 0:</em>
<em> rez += 1</em>
<em>print(str(rez))</em>
<em />
Если они даны в одну строчку через пробел, то:
<em>q, rez = [int(i) for i in input().split()], 0</em>
<em>for p in q:</em>
<em> if p < 0:</em>
<em> rez += 1</em>
<em>print(str(rez))</em>