begin
var a := ReadArrInteger(15);
for var i := 14 downto 0 do
Println(a[i]);
end.
ХакерОнлайн. А что, мне нравиться
Без труда не вытащишь рыбку из труда
Var N:longint;
beginwriteln('Введите N');
readln(N);
writeln('N= ',N);
while n>=100 do begin
N:=N div 10;
end;
write(' Число = ',N);
end.
Если масив заполнить нужно рандомно:
program wk;
var i,s:integer;mas:array [1..10] of integer;
begin
s:=0;
for i:=1 to 10 do
begin
mas[i]:=random(21)-20;
if mas[i] mod 2=0 then s:=s+mas[i];
end;
writeln('S=',s)
end.
Если масив заполняется с клавиатуры:
program wk;
var i,s:integer;mas:array [1..10] of integer;
begin
s:=0;
for i:=1 to 10 do
begin
readln(mas[i]);
if (mas[i] mod 2)=0 then s:=s+mas[i];
end;
writeln('S=',s)
end.