Program saidim;
uses crt;
var
m:integer;
begin
writeln('');
writeln('** Переводилка возраста **');
writeln('');
writeln();
writeln('Введите возраст в месяцах');
readln(m);
writeln('*** alphaues is thinking... ***');
writeln();
// writeln('Возраст равен ',m div 12,' лет ',m mod 12,' месяцев');
write('Возраст равен ',m div 12);
case ((m div 12) mod 10) of
1: write(' год ');
2,3,4: write(' годa ');
else write(' лет ');
end;
case (m mod 12) of
0: writeln(' ровно ');
1: writeln(m mod 12,' месяц ');
2,3,4: writeln(m mod 12,' месяцa ');
else writeln(m mod 12,' месяцев ');
end;
end.
Чтобы массив заполнялся от -15 до 20:
program vst;
var c:array [0..100] of integer;
j,n,k,i:integer;
min:integer;
begin
randomize; writeln('n='); read(n);
for i:=1 to n do c[i]:=random(36)-15;
writeln;
for i:=1 to n do write (c[i],' ');
min:=c[1];
for i:=2 to n do
if min>c[i] then min:=c[i];
writeln ('min=',min);
writeln('k='); read(k);
for i:=n+1 downto k do c[i]:=c[i-1];
c[k]:=min;
writeln; for i:=1 to n+1 do write (c[i],' ');
end.
---
Чтобы был ручной ввод:
program vst;
var c:array [0..100] of integer;
j,n,k,i:integer;
min:integer;
begin
writeln('n='); read(n);
for i:=1 to n do
readln(c[i]);
writeln;
for i:=1 to n do write (c[i],' ');
min:=c[1];
for i:=2 to n do
if min>c[i] then min:=c[i];
writeln ('min=',min);
writeln('k='); read(k);
for i:=n+1 downto k do c[i]:=c[i-1];
c[k]:=min;
writeln; for i:=1 to n+1 do write (c[i],' ');
end.
Художник Шишкин пейзажист.
Композитор Моцарт классик.
Озеро Байкал большое.
Город Лондон столица.