program massive;
var i,j,s,min,n:integer;
A:array [1..10000] of integer;
begin
readln(n);
for i:=1 to n do
readln(A[i]);
min:=999;
for i:=1 to n do
if A[i]<min then begin
min:=A[i];
s:=i;
end;
for j:=2 to i do
if j mod 2=0 then A[j]:=0;
for i:=1 to n do
write(A[i],' ');
end.
Через Case :
Var
k:integer;
Begin
WriteLn('Введи число k');
ReadLn(k);
if k in[11..19] then WriteLn('В букете ',k,' цветков')
else
Case k mod 10 of
1:WriteLn('В букете ',k,' цветок');
2..4:WriteLn('В букете ',k,' цветка');
0,5..9:WriteLn('В букете ',k,' цветков');
end
End.
Через if :
Var
k:integer;
Begin
WriteLn('Введи число k');
ReadLn(k);
if k in[11..19] then WriteLn('В букете ',k,' цветков')
else
Begin
if k=1 then WriteLn('В букете ',k,' цветок');
if k mod 10 in[2..4] then WriteLn('В букете ',k,' цветка');
if (k mod 10 in[5..9])or(k=0) then WriteLn('В букете ',k,' цветков');
end
End.
//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию
begin
var a := SeqWhile(1, i -> i + 1, i -> i < 20);
Println(a);
Println(a.Where(x -> x mod 3 = 0).Average);
Writeln();
for var i := ReadInteger('a =') to ReadInteger('b =') do
writeln(i, ' ', i * i, ' ', i * i * i);
end.
Var a,b,x:integer;
begin
writeln('введите число x:');
readln(x);
writeln('введите интервал от a до b:');
readln(a,b);
if (x>=a) and (x<=b) then writeln('x принадлежит данному интервалу') else
writeln('x не принадлежит данному интервалу');
readln;
end.