Объяснение:
uses Crt;
const n=10;
type Mas = array [1..n] of integer;
var A, B: Mas;
i,k: integer;
begin
ClrScr; Randomize; k:=0;
for i:=1 to n do
begin
A[i]:=1+random (100);
if (A[i] mod 5 =0) then begin
k:=k+1;
B[k]:=A[i];
end;
end;
WriteLn(' Исходный массив: ');
for i:=1 to n do Write(A[i]:5);WriteLn;
WriteLn(' Исхомый массив: ');
for i:=1 to k do Write(B[i]:5);WriteLn;
ReadLn;
end.
алг
нач
цел й
вывод ('Введите номер месяца ')
ввод й
если й<1 или й>12 то вывод ('Месяца с таким номером не бывает') всё
если й=1 то вывод ('Январь') всё
если й=2 то вывод ('Февраль') всё
если й=3 то вывод ('Март') всё
если й=4 то вывод ('Апрель') всё
если й=5 то вывод ('Май') всё
если й=6 то вывод ('Июнь') всё
если й=7 то вывод ('Июль') всё
если й=8 то вывод ('Август') всё
если й=9 то вывод ('Сентябрь') всё
если й=10 то вывод ('Октябрь') всё
если й=11 то вывод ('Ноябрь') всё
если й=12 то вывод ('Декабрь') всё
кон
