1. Найти количество отрицательных чисел во вводимой с клавиатуры последовательности. Условие окончания ввода – ввод числа 0.2.Сл
1. <span>Найти количество отрицательных чисел во вводимой с клавиатуры последовательности. Условие окончания ввода – ввод числа 0. 2.</span> <span>Случайным образом сгенерировать дату и время. Диапазон изменения годов: 2000 - 2010, месяцев: 1 - 12, дней: 1-31, часов: 0 - 23, минут: 0 - 59. Вывести сгенерированное значение в формате: ДД/ММ/ГГГГ ЧЧ:ММ. 3.</span> <span>Массив А из 10 элементов заполнен случайными числами от 2 до 7. Вставить элемент со значением 0 после элемента с номером N. Вывести на экран исходный и получившийся массивы.
1) var a,q:integer; begin a:=1; while a<>0 do begin read(a); if a<0 then inc(q); end; writeln('Количество отрицательный чисел: ',q); end.
2) var d,m,g,h,min:integer; begin d:=random(31)+1; m:=random(12)+1; g:=random(11)+2000; h:=random(24); min:=random(60); writeln(<span>d,'/',m,'/',g,' ',h,':',min); end.
3) var a:array[1..10] of integer;n,i:integer; begin for i:=1 to 10 do a[i]:=random(6)+2; read(n); </span>for i:=1 to 10 do writeln(a[i]);<span> for i:=9 downto n do a[i+1]:=a[i]; a[n]:=0; for i:=1 to 10 do writeln(a[i]); end;</span>