Кто в паскале разбирается? . "с клавиатуры запрашивается строка s. сформировать в памяти строку r, в которой каждое слово из строки s записано "задом-наперед" (пример: я иду гулять - я уди ьтялуг). вывести результаты на экран."
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016) var a: array of integer; i, n, min, max, imax, imin: integer;
begin write('Число элементов в массиве ');readln(n); setlength(a, n); min := maxint;max := -maxint; for i := 0 to n - 1 do begin a[i] := random(101) - 50; if a[i] > max then begin max := a[i];imax := i; end; if a[i] < min then begin min := a[i];imin := i; end; write(a[i]:4); end; writeln; writeln('min = ',min,' max = ',max); //меняем местами max и min и выводим массив swap(a[imax], a[imin]); for i := 0 to n - 1 do write(a[i]:4); end.
Тестовое решение: Число элементов в массиве 10 -19 -14 -44 -3 -4 -46 -1 -39 13 32 min = -46 max = 32 -19 -14 -44 -3 -4 32 -1 -39 13 -46
Var a:array[1..100,1..100] of integer; N,M,i,j,min,kmin:integer; begin readln(N,M); min:=10000; kmin:=0; for i:=1 to N do begin writeln(); for j:=1 to M do begin a[i,j]:=random(50); write(a[i,j],' '); if min = a[i,j] then kmin:=kmin+1 else if min > a[i,j] then begin kmin:=1; min:=a[i,j]; end; end; end; writeln(); write(min,' ',kmin); readln(); end.
// Внимание! Если программа не работает, обновите версию!
begin
var r:=ReadlnString.ToWords.
Select(w->w.Inverse.JoinIntoString).JoinIntoString(' ');
Writeln(r)
end.
Пример
Я иду гулять
Я уди ьтялуг