Количество слов Дана строка, состоящая из слов, разделённых пробелами. Определите, сколько в ней слов. Используйте для решения задачи метод count. Входные данные Вводится строка.

Объяснение:

Ну вот посмотри там правильно вроде

const

  a: array[1..6]of longint=(7,4,10,6,5,3);

var

  i: longint;

begin

for i: =1 to 6 do  write(9.8*a[i]*1200,' ');

writeln;

end.

var

i,n: integer;

a: array [1..100] of integer;

begin

readln(n);

for i: =1 to n do

begin

if i mod 2 =0 then a[i]: =i-3

else a[i]: =i+3;

writeln(a[i]);

end;

end.