1. вкус
2. обоняние
3. зрение
4.осязание
5.обоняние + зрение
6.осязание
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var im:=a.IndexMax;
Writeln('Номер максимального элемента- ',im+1,', значение ',a[im]);
end.
<u>Пример</u>
n= 13
11 -13 -11 46 24 -10 34 -22 -8 -1 31 -34 -4
Номер максимального элемента- 4, значение 46
Var a,b,c:integer;
result:double;
begin
read(a,b,c);
result:=(a+b-c)/(a-b);
writeln(result);
end.
Program n1;
var a,b:integer;
begin
a:=12345;
writeln(a);
for b:=1 to 4 do begin
writeln (a div 10);
a:=a div 10;
end;
end.
program n2;
var a,b,c:integer;
begin
b:=54321;
c:=10000;
writeln(b);
for a:=1 to 4 do begin
writeln(b mod c);
c:=c div 10;
end;
end.
program n3;
var b,a:integer;
begin
a:=54321;
writeln(a);
for b:=1 to 4 do begin
writeln(a div 10);
a:=a div 10;
end;
end.