Program hren;
uses crt;
var a:integer;
BEGIN
<span>writeln ('How old are you?');
read(a);
a:=60-a;
</span><span>writeln ('years you have ',a);</span>
END.
1.
begin
var a:=ReadlnInteger('a =');
var x:=ArrRandom(a,16,28); x.Println;
x:=x.Select(x->odd(x)?46:x).ToArray;
x.Println;
end.
2.
const a=10;
var x:array[1..a] of integer;
i:integer;
begin
Randomize;
for i:=1 to a do begin
x[i]:=random(13)+16;
write(x[i]:3);
end;
writeln;
for i:=1 to a do
if x[i] mod 2<>0 then x[i]:=46;
for i:=1 to a do write(x[i]:3);
writeln;
end.
Пример:
21 20 27 26 17 18 27 23 26 25
46 20 46 26 46 18 46 46 26 46
Var
N: integer;
Begin
Write('Введите номер урока: ');ReadLn(N);
Case N of
'1':WriteLn('Математика');
'2':WriteLn('Физика');
'3':WriteLn('Химия');
'4':WriteLn('Геометрия');
'5':WriteLn('География');
'6':WriteLn('Краеведенье');
End;
End.
Массив будет сформирован:
a[1]=1*(1+1)=1*2=2
a[2]=2*(2+1)=2*3=6
....
a[5]=5*(5+1)=5*6=30
сумма: a[1]+a[5]=2+30=32
Ответ: 32