Помогите пожалуйста с паскалем...
ребят, помогите решить, очень нужно..:
1. Дан массив A(n), разработать программу, которая позволяет выполнить с массивом следующие действия:
· Нахождение минимальное значение среди элементов массива, встречающихся К раз.
· Производить обнуление всех элементов массива до максимального элемента.
· Нахождение произведения всех отрицательных элементов массива.
Расположить массив в порядке убывания.
2.Дана строка, содержащая зашифрованный русский текст. Каждая буква заменяется на следующую за ней (буква Я заменяется на А). Расшифровать данный текст.
1. Дан массив A(n), разработать программу, которая позволяет выполнить с массивом следующие действия:
· Нахождение минимальное значение среди элементов массива, встречающихся К раз.
· Производить обнуление всех элементов массива до максимального элемента.
· Нахождение произведения всех отрицательных элементов массива.
Расположить массив в порядке убывания.
2.Дана строка, содержащая зашифрованный русский текст. Каждая буква заменяется на следующую за ней (буква Я заменяется на А). Расшифровать данный текст.
>обнуление
>до максимального элемента
Интересно, это как?
И с чем сложности, что уже написано?
>до максимального элемента
Интересно, это как?
И с чем сложности, что уже написано?
найти максимальное значение и обнулять все до него...
сложности с самой программой..
я с практикой не успеваю, если не трудно, помогите пожалуйста..
сложности с самой программой..
я с практикой не успеваю, если не трудно, помогите пожалуйста..
Обнуляют до нуля. Ну, спрашивай свои вопросы. Тебе обязтаельно помогут.
Вторая часть вопроса. Вот такой код канает?
С вектором помоч не могу. Может кто другой
Код:
procedure Transmute(Sts: PAnsiString);
var
I: CARDINAL;
begin
for I := 1 to Length(Sts^) do
begin
if Ord(Sts^[I]) = 223 then Sts^[I] := AnsiChar(192) else
if Ord(Sts^[I]) = 255 then Sts^[I] := AnsiChar(224) else
Sts^[I] := AnsiChar(Ord(Sts^[I]) + 1);
end;
end;
var
I: CARDINAL;
begin
for I := 1 to Length(Sts^) do
begin
if Ord(Sts^[I]) = 223 then Sts^[I] := AnsiChar(192) else
if Ord(Sts^[I]) = 255 then Sts^[I] := AnsiChar(224) else
Sts^[I] := AnsiChar(Ord(Sts^[I]) + 1);
end;
end;