<em>MS DOS QBasic 1.0</em>
DIM n AS INTEGER
CLS
INPUT "N=", n
REDIM a(1 TO n) AS INTEGER
DIM a AS INTEGER
RANDOMIZE TIMER
FOR i = 1 TO n
a(i) = 9 * RND + 1
PRINT a(i);
NEXT i
PRINT
'--------- SORT -----------
DIM j AS INTEGER, t AS INTEGER
FOR i = 1 TO n
FOR j = 1 TO n
IF a(i) < a(j) THEN
t = a(i): a(i) = a(j): a(j) = t
END IF
NEXT j
NEXT i
'---------------------------
t = a(1): j = 1
FOR i = 2 TO n
IF a(i) = t THEN
j = j + 1
ELSE
PRINT t; "-"; j
t = a(i): j = 1
END IF
NEXT i
PRINT t; "-"; j
<u>Пример</u>
N=10
7 5 2 7 3 3 5 9 7 6
2 - 1
3 - 2
5 - 2
6 - 1
7 - 3
9 - 1
Program znanija;
var a,b,c:integer;
begin
write ('Введите 3 числа: ');
read(a,b,c);
if a<b and a<c and b<c then
begin
a*2;
b*2;
c*2;
write ('Числа: ',a, b, c);
end
else write ('Числа упорядочены не по возрастанию');
end.
Если a>x хватит
Если a = x то b должно быть больше или равно n
Если a<x То на диск не хватит
#include <iostream>
int main (){ int n ; float res = 0, r; std::cin >> n; for (int i = 0; i < n; i++) { std::cin >> r; res += 1/r; } res = 1/res; std::cout << res;}
Если в первый день машинист проехал 10 км, то во второй день он проехал на 5 км больше
сколько км проехал машинист за два дня?
10 + 5 = 15 (второй день)
15 + 10 = 25 (проехал за два дня)