Var a:array[1..12] of integer;
i:integer;
begin
for i:=1 to 12 do
read(a[i]);
for i:=12 downto 1 do
write(a[i],'; ');
end.
Var a: array[1..100] of integer;
i, k,n: integer;
begin
writeln('Введите n:');
readln(n);
writeln('Массив:');
for i := n downto 1 do
begin
a[i] := random(100);
write(a[i]:4);
end;
writeln;k:=0;
for i := 1 to n do
if a[i] mod 2 <> 0 then
begin
writeln('Номер первого нечетного = ', i);
k:=1;
break;
end;
if k=0 then
writeln('В массиве нет нечетных элементов');
readln;
end.
Только решить могу . Мы не записывали дано в своё время.
Решение : 16*45*64*16=737280.
var
a:array[1..100] of integer;
x,i,n,min:integer;
begin
readln(n);
x:=1;
read(a[1]);
min:=a[1];
for I:=2 to n do
begin
read(a[i]);
if a[i]<min then
begin
min:=a[i];
x:=1
end;
if a[i]=min then x:=x+1;
end;
writeln(x)
end.
Комментарий: n- количество элементов массива, вводится с клавиатуры в диапазоне от 1 до 100