Завтро зачёт а половину не сделано!

[bolon]

Помогите пожалучто завтро практика и надо решить 3 задачи
1.Одномерный массив, переставить max элемент с последним!
2.заменить все входяшие слова а на б
3.проверить является ли введенная фраза словестной и зашифровать
Заранее спасибо!

[Pein95]

1.

Program kj;
var
a:array [1..10] of integer;
i,max,k,l:integer;
begin
for i:=1 to 10 do
a[i]:=random(10);
max:=a[1];
for i:=1 to 10 do
if max<a[i] then
 begin
 max :=a[i];
k:=i;
end;
l:=a[10];
a[10]:=max;
a[k]:=l;
end

не проверял

[bolon]

спс теперь надо 2.3

[Pein95]

а сами решать не пробовали?

[bolon]

не получается... у нас училка тупая не фига не понятно что объесняет!!! а сам не могу выучить паскаль

[Pein95]

никогда не говори не могу)
и кста я сам на 100% самоучка)

[bolon]

а как учился и можешь написать проги?