Var
a: array [1..4] of char;
i: integer;
begin
a[1] := 'S';
a[2] := 'I';
a[3] := 'M';
a[4] := 'A';
for i := 1 to 4 do
write(ord(a[i]) - 64, ' ');
end.
а самостоятельно подобрать число никак?
Const N = 100;
Var m:array [1..N] of integer; i,max,o:integer;
begin
randomize;
o:=0;
for i:=1 to N do begin
m[i]:= random(1000);
if m[i]>max then max:=m[i]; end;
for i:=1 to N do begin
write(m[i],' ');
if (m[i]>o) and (m[i]<max) then o:=m[i]; end;
writeln;
writeln('--=',o,' =--');
readln;
end.<span>
</span>
Данный элемент называется диспетчер задач.
Правильно, 35. И так как ответ должен содержать 20 символа. Я пишу это
Var max, min : integer;
a:array[1..5] of integer;
max:=0;
min:=0;
begin
for i:=1 to 5 do
readln(a[i]);
for i:=1 to 5 do begin
if a[i]<min then
min:=a[i];
if a[i]>max then
max=a[i];
end;
writeln('Максимальный:',max,',минимальный: ',min);
end.
проверь на паскале только)