var a: array[1..n] of integer; b: array[-5..11] of integer; i, j, m: integer;
begin //Заполнение массива и подсчет кол-ва каждого из интервала // от -5 до 11 writeln('Исходный массив'); for i := 1 to n do begin a[i] := random(17) - 5; inc(b[a[i]]); write(a[i]:4); end; writeln; //Сортировка и вывод массива writeln('Отсортированный массив'); for i := 1 to n - 1 do begin for j := i + 1 to n do begin if a[i] > a[j] then begin m := a[i]; a[i] := a[j]; a[j] := m; end; end; end; for i := 1 to n do write(a[i]:4); writeln;
//Вывод количества чисел из интервала
for i := -5 to 11 do begin writeln('Число:', i:4, ' кол-во: ', b[i]:4); end; end.
Программа (не проверяет корректность введенных данных, т.е. работает правильно только в случае, если введена корректная дата в формате dd.mm.): const months:array[1..12] of string= ('января','февраля','марта','апреля','мая','июня', 'июля','августа','сентября','октября','ноября','декабря'); var s,s1,month:string; d,m,y,code:integer; begin write('Введите дату dd.mm. = '); readln(s); Val(copy(s,1,2),d,code); s1:=s; delete(s1,1,3); Val(copy(s1,1,2),m,code); month:=months[m]; delete(s1,1,3); Val(copy(s1,1,4),y,code); writeln(d,' ',month,' ',y); end.
Пример: Введите дату dd.mm. = 05.04.2016 5 апреля 2016
224 (16)=2*16^2+2*16^1+4*16^0
521 (8)=5*8^2+2*8^1+1*8^0
111011 (2)=1*2^5+1*2^4+1*2^3+0*2^2+1*2^1+1*2^0