Const n=10; var i,s,k:integer; a:array [1..n] of integer; begin for i:=1 to n do begin // 1) //случайные числа a[i]:=random(20); //используя функцию randomize генерируем случайные числа write(a[i],' '); //2)натур. ряд чисел a[i]:=i; //присваиваем элементу массива его номер write(a[i],' '); //3)заполнить с клав. write('введите ',i,' число массива '); readln(a[i]); //4) сред. ариф. кратн 2 a[i]:=random(20); //создадим рандомный массив write(a[i],' '); // выведем на экран if a[i] mod 2 = 0 then begin //если кратно 2, то s:=s+a[i]; //считаем сумму всех чисел кратных 2 k:=k+1; // считаем кол-во таких чисел end; end; //2 стоки ниже относятся только к 4 пункту writeln; writeln('среднее арифметическое элементов, кратных 2 = ',s/k); //ниже относится к ручному вводу writeln; for i:=1 to n do write(a[i],' '); end. как-то так) старался некоторые моменты пояснять комментариями
ну вроде бы так, если все верно, то отметь как лучший ответ, буду благодарна
есть несколько программ, и все они должны подойти, смотри картинки
k:=1;
for i:=1 to length(s) do
if s[i]=' ' then k:=k+1;
Количество слов на 1 больше чем пробелов.
var
s:string;
i,r:integer;
begin
readln(s); //ввод строки
i:=1;
while i<=length(s) do begin
if s[i]=' ' then r:=r+1;
i:=i+1;
end;
writeln(r+1);
readln;
end.