Самое простое, чтоб без заморочек, занести в массив и отсортировать его var a: array[1..3]of real; i,j: integer; p: real; begin for i: =1 to 3 do begin write('введите число: '); readln(a[i]); end; for i: =1 to 3 do for j: =1 to 3 do if a[j]< a[i] then begin p: =a[i]; a[i]: =a[j]; a[j]: =p; end; for i: =1 to 3 do write(a[i],' ') end.
Спасибо
Ответ дал: Гость
writeln('a[',i,']=',a[i]);
readln;
end.
Ответ дал: Гость
var s : string; symb : char; i : longint; begin readln(s); readln(symb); if pos(symb,s)=0 then writeln('в этом слове нет этого символа') else begin i: =0; while pos(symb,s)< > 0 do begin write(pos(symb,s)+i,' '); i: =i+1; delete(s,pos(symb,s),1); end; end; writeln; writeln(i); end.
Популярные вопросы