СОСТАВИТЬ ПРОГРАММУ ОБМЕНА МЕСТАМИ ДВУХ ЧИСЕЛ c=4;d=23.​

египтяне не писали гласных. египетский язык относится к группам языков, где корень слова состоит из согласных, гласные не вписываются. использовались три вида знаков: словесные (один иероглиф - одно слово), фонетических (сродни сорвеменному алфавиту), детерминативов (иероглиф в конце слова изменял его смысл).

итог - гласные звуки в письме не использовались.

картинка длжна быть в папке с программой и быть в формате bmp

uses graphabc;

var n: string; b: picture; s: integer;

begin writeln('введите расстояние до зеркала'); readln(s); write('введите имя файла рисунка: '); readln(n); window.clear; b : = picture.create(n); b.load(n); b.draw(50, 50); b.fliphorizontal; b.draw(50+2*s,50); end.

max: =a[1];

for i: =2 to 10 do

begin 

if a[i]> max then

max: =a[i];  

c: =i;  

  end;

min: =a[1];

for i: =2 to 10 do

begin

if a[i]< min then

min: = a[i];

d: =i;

end;

a[c]: =x;

a[c]: =a[d];

a[d]: =x;  

это кусочек программы в паскале для нахождения максимального элемента на скоко я помню 

var s: string; i,n,max: byte;

beginn: =0; i: =1; max: =0; write('введите s -> '); readln(s);

while i< =length(s) do begin if (i=1) or (s[i]=' ') then begin if i < > 1 then inc(i); if (i< =length(s))and((s[i]='a') or (s[i]='a')) then

while i< =length(s) do if s[i]< > ' ' then begininc(n); inc(i); end else break; end; inc(i);

if max< n then max: =n; n: =0; end; write('длина самаго длинного слова на букву a = ',max); end.