var mas:array [1..15] of integer;
i:integer;
k:biginteger;
function f(mas:integer):boolean;
begin
if (mas mod 3=0) then f:=True;
if (mas mod 3<>0) then f:=False;
end;
BEGIN
k:=1;
for i:=1 to 15 do begin
mas[i]:=random(100)+1;
write(mas[i],' ');
if (f(mas[i])=True) then k:=k*mas[i];
end;
writeln();
if (k=1) then writeln('Нет элементов, кратных 3') else
writeln(k);
end.
Int n;
Console.WriteLine("Введите возраст");
n = Convert.ToInt32(Console.ReadLine());
switch (n)
case 1:
Console.WriteLine("{0} год", n);
case 2:
Console.WriteLine("{0} года", n);
И так дальше расписываешь, можешь немного сократить код и запихнуть цифры, где год или лет одинаковы.
Const
N = 13;
Var
A:array[1..N] of integer;
i:integer;
Begin
Randomize;
For i:= 1 to N do
Begin
A[i]:=random(21)-10;
Write(A[i],' ')
End;
WriteLn;
i:=1;
While i <= N do
Begin
Write(A[i],' ');
i:=i+2;
End;
WriteLn;
i:=2;
While i <= N do
Begin
Write(A[i],' ');
i:=i+2;
End;
End.
Program z1;
var A:array[1..30] of integer;
i,k:integer;
begin
k:=1;
for i:=1 to 30 do begin
write('a[',i,']=');
read(a[i]);
end;
for i:=1 to 30 do
if a[i] mod 2=0 then
k:=a[i]*k;
writeln(k);
end.
<span>Слова среднего рода, не склоняютьс, имеют единственное счисление.</span>