1.Отыскать количество отрицательных чисел во вводимой с клавиатуры последовательности.

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
в формате знак = код.




Помогите решить плиз на кону допуск к зачету.

Задать свой вопрос
Антонина Хотнянская
Почетаемый, разве что за благотворительность :D
1 ответ
1.var i,a:integer;begina:=1;while(alt;gt;0) do beginreadln(a);if alt;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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт