Var a:array[1..10] of integer;
i,b,ind,el,min:integer;
begin
min:=1000000;
for i:=1 to 10 do
read(a[i]);
readln;
read(b);
for i:=1 to 10 do begin
if abs(a[i]-b)<min then begin
min:=abs(a[i]-b);
el:=a[i];
ind:=i;
end;
end;
write(el,' ',ind); //Выводит элемент, а затем его индекс.
end.<span>
</span>
#include <iostream>
using namespace std;
int main()
{
int ar[20];
for(int i=0;i<20;i++) cin>>ar[i];
return 0;
}
Sum:=0;
for i:=55 downto 42 do sum:=sum+i;
23 div 5=4
16 div 4=4
5 div 8=0
37 div 10=3
23 mod 5=3
16 mod 4=0
5 mod 8=5
37 mod 10=7
Функция человека - ввести данные, дать команду на совершение определенных действий
калькулятор - исполнитель заданных команд