Помогите пожалуйста!
Есть число 283637, нужно вытащить четвертое число и применить при решение способ символов, в Паскаль АВС.

1

Ответы и объяснения

2014-02-24T16:04:03+04:00
Так?
var
 str:string;
begin
 str:='283637';
 writeln(str[4]);
end.
var
не дописал...сек
var
p:array[1..3] of real;
max:real;
i:integer;
begin
randomize;
for i:=1 to 3 do
p[i]:=(random(91)+800)/100;
max:=p[1];
for i:=2 to 3 do
if max<p[i] then
max:=p[i];
writeln(max);
end.
спасибочкиии:)
Помоги пожалуйстаа:)
Пользователь вводит длину и границы массива, программа выводит исходный массив, сортирует его по убыванию. Выводит на печать минимум и максимум, меняет их местами их местами в массиве и печатает его.