Var begin readln(n); if n=1 then begin writeln('1 месяц');writeln('кол-во дней');end; if n=2 then begin writeln('2 месяц');writeln('кол-во дней');end; if n=3 then begin writeln('3 месяц');writeln('кол-во дней');end; if n=4 then begin writeln('4 месяц');writeln('кол-во дней');end; if n=5 then begin writeln('5 месяц');writeln('кол-во дней');end; if n=6 then begin writeln('6 месяц');writeln('кол-во дней');end; if n=7 then begin writeln('7 месяц');writeln('кол-во дней');end; if n=8 then begin writeln('8 месяц');writeln('кол-во дней');end; И так до 12 раз... Я не уверен что тебе нужен такой монстр... В место к примеру 1 месяца пишешь январь...
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 begin var s:=ReadLines('in.txt').ToArray; var n:=StrToInt(s[0]); var a:=s[1].ToWords.Select(e->StrToInt(e)).ToArray; var f:=OpenWrite('out.txt'); Writeln(f,n,' - (кол-во чисел)'); foreach var e in a do Write(f,e,' '); Writeln(f); Writeln(f,'Среднее значение четных ', a.Where(x->x.IsEven).Average); Writeln(f,'Среднее значение нечетных ', a.Where(x->x.IsOdd).Average); f.Close end.
const
N = 10;
var
a: array [1..N, 1..N] of integer;
i, j, iMin1, iMin2 : integer;
begin
randomize;
for i := 1 to N do
begin
for j := 1 to N do
begin
A[i][j] := random(100) - 50;
write(a[i][j], ' ');
end;
writeln;
end;
iMin1 := 1;
iMin2 := 2;
for i := 3 to N do
begin
if a[1][i] < a[1][iMin1] then
begin
if a[1][iMin1] < a[1][iMin2] then
iMin2 := iMin1;
iMin1 := i;
end
else if a[1][i] < a[1][iMin2] then
iMin2 := i;
end;
writeln(a[1][iMin1]);
writeln(a[1][iMin2]);
end.