Составьте программу, которая удаляет из строки s запятую и выводит полученную строчку на экран. строчка s, состоящая из двух слов, разделенных запятой и пробелом, вводится с клавиатуры. , .

var

s: string;

begin

  s: =edit1.text;

for s: =1 to length(s) do

begin

if s[i]=',' then delete(s,i,1);

showmessage(s);

end;

end;

 

Const     n = 3;     m = 4; var     a: array[1..n,1..m] of integer;     i,j,min,ns: integer; begin {заполнение массива} writeln('исходный массив: '); for i: = 1 to n do       begin       for j: = 1 to m do               begin               a[i,j]: =random(21)-10;               write(a[i,j]: 3,' ');               end;       writeln       end; {поиск минимального элемента} min: =a[1,1]; for i: = 1 to n do       for j: = 1 to m do               if a[i,j]< min then                     begin                     min: =a[i,j];                     ns: =i;                     end; writeln('минимальный элемент в строке №',ns); end.

Ялюблю и уважаю поэзию. даже сама (сам) пишу стихи. почему мне нравится поэзия? ну так сразу и не сказать. когда я открываю томик стихотворений пушкина или есенина все проблемы уходят на второй план. сразу приходить такая легкость, безмятежность (проверь по словарю это слово ). и все проблемы сразу решаемы . мое любимое стихотворение "жди меня " к. симонова. когда его читаешь слезы текут ручьем от того, как автор передал всю боль, весь страх того времени. лично я вам советую почаще читать. это увлекательно и полезно. как-то так )