Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
1. начало
2. оденься
3. выйти из дома
4. если есть машина
5.то сесть в машину
6. завести машину
7.начать путь следования по дороге
8.доехать до села
9. выйти из машины
иначе 10. дойти до остановки
11.дождаться автобуса
12. зайти в автобус
13. доехать до села
14. выйти из автобуса
15. конец
var
a: array[1..31] of real;
i,k: integer;
min: real;
begin
min: =50;
for i: =1 to 31 do
readln(a[i]);
if a[i]< min then min: =a[i];
end;
k: =0;
if a[i]=min then k: =k+1;
writeln(k);
end.
varn: integer; beginreadln(n); n: = n div 10; n: =(n div 100)*10 +n mod 10; writeln(n); n: = (n mod 10)*100+ ((n mod 100) div 10)*10+ n div 100; writeln(n); end.
Популярные вопросы