Решение задачи в автоматическом режиме

После выполнения отладки программы, для неё разрабатывается документация пользователя. Разработанная программа и её сопроводительная документация передаются заказчику, который начинает её эксплуатацию.

7. Дана непустая последовательность слов из латинских букв, соседние слова отделены друг от друга запятой, за последним словом — точка. Определить количество слов, которые начинаются с буквы a.

8. Дана строка символов: заменить в ней все восклицательные знаки на точки.

program prim2;

var str:string;

l,i:integer;

begin

writeln('Введитетекст:');

readln(str);

l:= length(str);

writeln('преобразованныйтекст');

for i:= 1 to l do

if (str [i] = '!') then write('.')

else

write(str[i]);

writeln;

end.

9. Найти сумму элементов одномерного массива, значения которых находятся в некотором интервале .

program prim3;

var

x:array[1..100] of real;

n,i:integer;

sum: real;

begin

writeln ('Введите размерность массива:');

readln(n);

sum:=0;

writeln ('Введите массив:');

begin

for i:=1 to n do

begin

readln(x[i]);

sum:=sum+x[i];

end;

writeln('Summa=',sum);

readln;

end;

end.

n- количество элементов массива

i- количество прохождения цикла

sum– сумма элементов массива

readln(n) – вводится размер массива

sum:=0 сумме элементов присваивается значение 0

Не нашли, что искали? Воспользуйтесь поиском: