Решение задач

[Patr1ck]

Помогите сделать задачи пожалуйста

1. Составить программу получения слова "правельно" из слова операция, используя процедуры Delete, Insert.

2. Дан, текст, за которым следует точка. В алфавитном порядке напечатать все строчные русские гласные буквы (а,е,т,о,у,ы,э,ю,я), входящие в текст.

3. Написать модуль, который заменяет все элементы двумерного массива стоящие до максимального нулями. (модуль и задача)

4. Введите с клавиатуры в массив десять вещественных значений. Выведите их в одну строку через запятую. Отсортировать по возрастанию и вывести полученный массив на экран.


5. Составьте программу упорядочения по убываю элементов каждой строки дрвумерного массива C[1.5, 1..6]. Массив заполнен случайными
целыми числами от -20 до 20.



Помогите пожалуйста

[IT-man]

1)

s:='операция';
delete(s,1,8);
insert('правильно',s,1);
writeln(s);

[hiho]

Красавчик =)

[Mad_Cat]

II )

s:=['а','е','и','о','у','ы','э','ю','я'];
s2:=[];
for i:=1 to length(str) do
if str[i] in s then begin s:=s-[str[i]];s2:=s2+[str[i]];end;
for c:='а' to 'я' do
if c in s2 then write(c,' ');

[denisbrain]

Сообщение от Patr1ck

Помогите сделать задачи пожалуйста


5. Составьте программу упорядочения по убываю элементов каждой строки дрвумерного массива C[1.5, 1..6]. Массив заполнен случайными
целыми числами от -20 до 20.



Помогите пожалуйста

смотри мой пример, написан на дельфи - там все просто!
http://depositfiles.com/files/4wu166taj

[denisbrain]

Сообщение от Patr1ck

Помогите сделать задачи пожалуйста
3. Написать модуль, который заменяет все элементы двумерного массива стоящие до максимального нулями. (модуль и задача)
Помогите пожалуйста

функция отображения двух мерного массива в TStringGride
Функция поиска максимального элемента в двух мерном массиве
Функция замены элементов массива
пример программы на Delphi легко может быть переписан Pascal
ссылка
http://depositfiles.com/files/xjputaxph