Вывести строку, содержащую эти же слова, но разделенные одним символом "."

@lincoln · Регистрация: 17.12.2014

Добрый день. Если вас не затруднит помогите составить программы в паскаль для следующих задач

Дана таблица целых чисел a1, a2, ..., an и число с. Найти минимальное значение индекса р, при котором a1 + a2 + ...+ ap < c.

String24. Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Вывести строку, содержащую эти же слова, но разделенные одним символом "." (точка). В конце точку не ставить.

Array24. Дан целочисленный массив размера N. Назовем серией группу подряд идущих одинаковых элементов, а длиной серии — количество этих элементов (длина серии может быть равна 1). Вывести массив, содержащий длины всех серий исходного массива.

Matrix24. Дана матрица размера 5 x 10. Поменять местами столбец с номером 11|102 и первый3|последний4 из столбцов, содержащих только положительные элементы.

Заранее Благодарю!

@CodeR · 18.12.2014, 11:28

Сообщение от lincoln

Дана таблица целых чисел a1, a2, ..., an и число с. Найти минимальное значение индекса р, при котором a1 + a2 + ...+ ap < c.

Pascal

Var A:array[1..100] of integer;
    i,n,c,p,s:integer;
Begin
    write('N: ');readln(n);
    writeln('Введите ',n,' чисел');
    For i:=1 to n do
     read(A[i]);
    write('c: ');readln(c);
    For i:=1 to n do 
     if s+A[i]<c then 
     Begin
       s:=s+A[i];
       p:=i;
     End;
    writeln('p = ',p);
End.

@lincoln 0 / 0 / 0 Регистрация: 17.12.2014 Сообщений: 31
		1
	Вывести строку, содержащую эти же слова, но разделенные одним символом "." 17.12.2014, 17:04. Показов 1175. Ответов 1 Метки нет (Все метки) Добрый день. Если вас не затруднит помогите составить программы в паскаль для следующих задач Дана таблица целых чисел a1, a2, ..., an и число с. Найти минимальное значение индекса р, при котором a1 + a2 + ...+ ap < c. String24. Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Вывести строку, содержащую эти же слова, но разделенные одним символом "." (точка). В конце точку не ставить. Array24. Дан целочисленный массив размера N. Назовем серией группу подряд идущих одинаковых элементов, а длиной серии — количество этих элементов (длина серии может быть равна 1). Вывести массив, содержащий длины всех серий исходного массива. Matrix24. Дана матрица размера 5 x 10. Поменять местами столбец с номером 11\|102 и первый3\|последний4 из столбцов, содержащих только положительные элементы. Заранее Благодарю! 0

Опции темы

Вывести строку, содержащую эти же слова, но разделенные одним символом "."

Решение