uses crt; var n: integer; begin write('Введите номер месяца: '); readln(n); case n of 1: writeln('январь'); 2: writeln('февраль'); 3: writeln('март'); 4: writeln('арпель'); 5: writeln('май'); 6: writeln('июнь'); 7: writeln('июль'); 8: writeln('август'); 9: writeln('сентябрь'); 10: writeln('октябрь'); 11: writeln('ноябрь'); 12: writeln('декабрь'); else writeln('Нет такого месяца!'); end; readkey end.
Программа на языке Pascal, могу ещё написать на с++ если надо... P.S. Теперь лично для вас как работает. человек вводит число от 1 до 12, выводится соотвествующий месяц, если вводится число больше 12, то выведет "Нет такого месяца!", удачи!
n = 10;
var
a: array[0..10] of integer;
i, s: integer;
begin
//Заполнение массива сл. числами
for i := 1 to n do
begin
a[i] := random(201) - 100;
write(a[i]:4);
end;
writeln;
//1) Все элементы не превышающие число 100
writeln('Не больше 100 ');
for i := 1 to n do
if a[i] <= 100 then
write( a[i]:4);
writeln;
// 2) Все четные элементы
writeln('Кратные двум ');
for i := 1 to n do
if a[i] mod 2 = 0 then
write( a[i]:4);
writeln;
// 3) Все элементы, являющиеся трехзначными числами
writeln('Трехзначные ');
for i := 1 to n do
if (a[i] < -99) or (a[i] > 99) then
write(a[i]:4);
writeln;
// 4) Третий, шестой и т.д элементы.
i := 3;
writeln(' номера 3, 6, 9 и т.д.');
while i < n do
begin
write(a[i]:4);
i := i + 3;
end;
end.