Var str: string; i, count: integer;begin write('Your string: '); readln(str); i := length(str); if i > 0 then begin count := 1; while i > 0 do begin if str[i] = ' ' then count := count + 1; i := i - 1; end; end else count := 0; delete(str,3,1); writeln('Number of words: ', count); writeln(str);readln;end.
#include <iostream>
#include <cmath>
using namespace std;
int main()
{
int A[10]={10, 8,-3, 5, 7,6, 6, 8,-20, 5};
int min=abs(A[0]);
int i;
for (i=0;i<9;i++){
if (abs(A[i+1])<min){
min=abs(A[i+1]);
}
}
cout<<min;
return 0;
}