Положить альбом в портфель.
наточить цветные карандаши.
положить в пенал цветные карандаши и простой карандаш.
взять если нужно краски, кисть и стаканчик для воды.
Const n=12;
var c : array[1..n] of integer;
i : integer;
begin
writeln('Исходный массив:');
for i:=1 to n do begin
write('c[',i,']=');
readln(c[i]);
end;
writeln;
for i:=1 to n do write(c[i],' ');
end.
Пример:
<span>Исходный массив:
c[1]=15
c[2]=78
c[3]=20
c[4]=94
c[5]=37
c[6]=41
c[7]=72
c[8]=55
c[9]=86
c[10]=29
c[11]=89
c[12]=13
15 78 20 94 37 41 72 55 86 29 89 13</span>
Var
choose:char;
x: real;
begin
writeln('Переводить в радианы(Р) или в градусы(Г)?');
readln(choose);
if choose = 'Р' then
begin
write('Введите градусы: ');
readln(x);
writeln('Радианы: ', x*0.017);
end
else
if choose = 'Г' then
begin
write('Введите радианы: ');
readln(x);
writeln('Градусы: ', x*57,3);
end
else
writeln('Переводить можно ТОЛЬКО в радианы(Р) или градусы(Г)!');
end.