Посмотри, по формуле получилось.
а данные будут другие(не как в задании) потому, что дата=Сегодня,
т.е. после даты приема сотрудника +1год стажа.
<em>// PascalABC.NET 3.2, сборка 1381 от 04.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger;
var a:=ReadArrInteger(n);
var p:=a[0]; Print(p);
for var i:=2 to a.Length-1 do
if a[i]>p then begin p:=a[i]; Print(p) end;
end.
<u>Пример</u>
15
32 32 66 74 32 54 52 86 87 3 72 66 27 42 60
32 66 74 86 87
Program gt;
var a,max,s:longint;
begin
a:=-1;
max:=-100;
s:=0;
while a<>0 do
begin
read(a);
if(a=max)then s:=s+1;
if(a>max)then begin
max:=a;
s:=1;
end;
end;
writeln(s);
end.<span>
</span>
Ответ:
def y(x, a):
if x < 3:
return a*x-1
else:
return x+2*a
a = int(input())
x = int(input())
res = y(x, a)
print('y(x={}, a={}) = {}'.format(x, a, res))
Uses crt;
const n=5;
m=5;
var a:array[1..n,1..m] of integer;
i,b,j,k:integer;
begin
randomize;
for i:=1 to n do
for j:=1 to m do
begin
a[i,j]:=random(40)-20;
write(a[i,j]:3);
end;
writeln;
k:=1;
b:=20;
repeat
for i:=k to k do
for j:=1 to m do
if (a[i,j]<b) then b:=a[i,j];
writeln(b);
inc(k);
b:=20;
until k>n;
end.