1.Найти количество отрицательных чисел во вводимой с клавиатуры последовательности. Условие окончания ввода – ввод числа 0.2.Случайным образом сгенерировать дату и время. Диапазон изменения годов: 2000 - 2010, месяцев...
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
в формате «символ = код».
Помогите решить плиз на кону допуск к зачету.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы