Question

1.найти количество отрицательных чисел во вводимой с клавиатуры последовательности. условие окончания ввода – ввод числа 0. 2.случайным образом сгенерировать дату и время. диапазон изменения годов: 2000 - 2010, месяцев: 1 - 12, дней: 1-31, часов: 0 - 23, минут: 0 - 59. вывести сгенерированное значение в формате: дд/мм/ чч: мм. 3.массив а из 10 элементов заполнен случайными числами от 2 до 7. вставить элемент со значением 0 после элемента с номером n. вывести на экран исходный и получившийся массивы. 4.массив из 10 целых чисел заполнить случайными числами от -5 до 5. произвести сортировку массива. вывести на экран исходный и отсортированный массивы. сортировать по убыванию прямым выбором 5.написать программу, которая запрашивает размерность квадратного двумерного массива, заполняет массив случайными числами от 1 до 5 и зеркально отражает ее элементы относительно главной диагонали. 6.написать программу, которая выводит на экран таблицу символов с от 48 до 127 в формате «символ = код». решить на кону допуск к зачету.

Answer 1

1.var i,a:integer;begina:=1;while(a<>0) do beginreadln(a);if a<0 then i:=i+1;end;writeln(i);readln;
end.
2.var dd,mm,gg,hh,min:integer;begin randomize;dd:=random(31)+1;mm:=random(12)+1;gg:=random(11)+2000;hh:=random(24);min:=random(60);write(dd);write('/');write(mm);write('/');write(gg);write(' ');write(hh);write(':');write(min);readln;
end.