Эргономика ғылым ретінде қай жылы қалыптасты​

Const n=10; 
type ar=array[1..n+1] of integer;
var 
a:ar; i,p:integer; 
procedure pr(var a:ar; p:integer; var k:integer);
begin
k:=1;
while a[k]<>p do k:=k+1;
end;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
 begin
 a[i]:=random(31);
 write(a[i]:4);
 end;
writeln;
p:=17;
a[n+1]:=p;
pr(a,p,i);
if i<n 
 then writeln('Значение 17 найдено, номер элемента = ',i)
 else writeln('Значения 17 в массиве нет');
end.

Пример:
Массив A:
  14   5   7  17  25  15  28   0  24   0
Значение 17 найдено, номер элемента = 4

я уже вроде отвечал на такой вопрос, нашел код, вот:

import datetime

info = datetime.datetime.now()

hours = info.hour

mins = info.minute

sec = info.second

print(hours,mins, sec)

a = []

if hours == 1 or hours == 21:

a.append(f'{hours} час')

elif hours % 10 == 2 or hours % 10 == 3 or hours % 10 == 4:

a.append(f'{hours} часа')

else:

a.append(f'{hours} часа')

if mins % 10 == 1:

a.append(f'{mins} минута')

elif mins % 10 == 2 or mins % 10 == 3 or mins % 10 == 4:

a.append(f'{mins} минуты')

else:

a.append(f'{mins} минут')

if sec % 10 == 1:

a.append(f'{sec} секунда')

elif sec % 10 == 2 or sec % 10 == 3 or sec % 10 == 4:

a.append(f'{sec} секунды')

else:

a.append(f'{sec} секунд')

print(*a)

думаю сможете сами всё это просто запихнуть в функцию и будет вам счастье)

Объяснение: