Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
1. начало
2. оденься
3. выйти из дома
4. если есть машина
5.то сесть в машину
6. завести машину
7.начать путь следования по дороге
8.доехать до села
9. выйти из машины
иначе 10. дойти до остановки
11.дождаться автобуса
12. зайти в автобус
13. доехать до села
14. выйти из автобуса
15. конец
uses crt; var n,i: integer; a: array[1..1000] of integer; beginread(n); for i: =1 to n do read(a[i]); for i: =1 to n do beginif a[i]< 0 then a[i]: =abs(a[i]); for i: =1 to n do write(a[i],' '); end.
var a: array [1..10] of integer;
s,i,c,b: integer;
begin
read(c,b,n);
randomize;
for i : = 1 to n do
a[i]: = random(b) -c+1;
for i: = 1 to n do
if i mod 2 = 0 then s: =s+1;
writeln(s);
end.
var a: array [1..16] of integer;
i,s,c,d: integer;
read(c,d);
for i : = 1 to 16 do begin
a[i]: = random(d+c) - c;
if a[i]> 0 then s: = s + a[i];
end;
Популярные вопросы