складіть програму Рік , у якій за введеним цілим числом року визначають , чи є рік високосним. Якщо рік є високосним , то слід вивести повідомлення YES , інакше - NO. Відомо ,що відповідно до григоріанського календаря рік є високосним , якщо його номер кратний 4 , але не кратний 100 , а також якщо він кратний 400.
var b:array[1..dlin,1..2] of integer;
i,j,x:integer;
begin
writeln('Исходный массив:');
for i:=1 to dlin do
begin
b[i,1]:=random(800)+100;
write(b[i,1],' ');
b[i,2]:=b[i,1] mod 10 + b[i,1] div 100 + b[i,1] div 10 mod 10;
end;
writeln;
for i:=1 to dlin-1 do
for j:=dlin-1 downto i do
if b[j,2]>b[j+1,2] then
begin
x:=b[j,2]; b[j,2]:=b[j+1,2]; b[j+1,2]:=x;
x:=b[j,1]; b[j,1]:=b[j+1,1]; b[j+1,1]:=x;
end;
writeln('Отсортированный массив:');
for i:=1 to dlin do
write(b[i,1],' ');
end.
i, k, N: word;
A, B: array[1..10000] of integer;
begin
write(' N = ');
readln(N);
writeln(' Введите массив из ', N, ' чисел: ');
for i := 1 to N do
begin
read(a[i]); //Вводим i-й элемент массива.
if a[i] mod 2 = 0 then //Если он четный,
begin
inc(K); //то увеличиваем K на 1.
b[K] := a[i] //Очередной элемент нового массива.
end
end;
writeln('Четные числа обратном порядке: ');
{ Выводим четные элементы массива в обратном порядке: }
for i := K downto 1 do
write(' ', b[i]);
write(' K = ', K)
end.