Напишите, что напечатает следующая программа: Program pl; Var a, b:integer; procedure fl (x,y:integer) begin y:=2*x+3; end; procedure f2 (varx, y:integer); begin x:3*y+1; end; begin a:=2; b:=3; fl (а,b); writeln (‘а=,a,’ b=’,b) end
Const K = 13; Var M:array[1..K] of integer; i,A:integer; S:longint; Begin Write('Исходный массив: '); For i:= 1 to K do Begin M[i]:=random(21)-10; Write(M[i],' ') End; WriteLn; Write('A = '); ReadLn(A); S:=0; For i:= 1 to K do if M[i] > A then S:=S+M[i]; WriteLn('S = ',S) End.
begin
k:=1000; n:=1;
while k<30000 do
begin
k:=k+k;
n:=n+1;
end;
writeln('Это произошло на ',n,'-й день');
end.
Результат:
Это произошло на 6-й день
K = 13;
Var
M:array[1..K] of integer;
i,A:integer;
S:longint;
Begin
Write('Исходный массив: ');
For i:= 1 to K do
Begin
M[i]:=random(21)-10;
Write(M[i],' ')
End;
WriteLn;
Write('A = ');
ReadLn(A);
S:=0;
For i:= 1 to K do
if M[i] > A then S:=S+M[i];
WriteLn('S = ',S)
End.
Пример:
Исходный массив: 9 -10 -6 6 -7 -1 -9 0 10 -8 -5 7 -7
A = 3
S = 32