Три ошибки, одна грубая.
Сравни своё решение и моё. (для Pascal ABC Net)
program prim; var a: array [1..10] of integer; i, z, max, min,nommax,nommin: integer; begin for i:=1 to 10 do a[i]:=Random(101); writeln (' исходный массив:'); for i:=1 to 10 do write (a[i], ' '); writeln; max:= a[1]; for i:=2 to 10 do if a[i]>max then begin max:= a[i];nommax:=i; end; writeln ('максимальный элемент=', max); min:= a[1]; for i:=2 to 10 do if a[i]<min then begin min:= a[i];nommin:=i; end; writeln ('минимальный элемент=', min); z:=a[nommin]; a[nommin]:=a[nommax]; a[nommax]:=z; writeln (' полученный массив'); for i:=1 to 10 do write (a[i], ' '); writeln; end.
1. Электронный словарь - база данных "слово-слово", где одно слово является значением, переводом или определением другого.
2. Электронный словарь способен переводить лишь отдельные слова, а с-ма может разпознавать стойкие выражения, синтаксис и пунктуацию, что дает более верные результаты.
3. Текст для распознавания - это изображение (в виде пикселей), которые нужно составить с типографическим знаком, принимая во внимание кодировку и прочие особенности отдельных языков.
4. Поскольку текст находится в виде изображения, а не символов, и требует ручного перенабора или распознавания с помощью ПО.
5.6000E+02 - 4.2000E+01 + 3.1300E+003 = 560 - 42 + 3130 = 3648
Var n : Integer;
Begin
Readln(n);
n:=(n mod 10)*1000+(n mod 1000 div 10)*10+(n div 1000);
Writeln(n);
end.
Ввод: 1234
Вывод: 4231
Const
var s:integer;
procedure ploshad poverhnosti (s:integer);
var h,l,sbok:integer;
begin
writeln (' vedite l i h');
readln (l,h);
sbok:=h*(l^2);
end;
begin
s:=(ploshad poverhnosti)+2*(l^2);
writeln(s,' ');
readln;
end.
Но это очень не точно.