@PR0Z0N

Народ,помогите пожалуйста решить задачки,хотя бы какие нибудь:
1) Даны натуральное N и последовательность A1, A2, …,A N, состоящая из N целых чисел. Получить последовательность, которая отличается от исходной тем, что все нечетные элементы удвоены.
2)Дана символьная строка и символ. Слово - последовательность символов между пробелами, не содержащая пробелы внутри себя. Вывести все слова, в которых есть заданный символ.
3)Сформировать массив X(N), N-й член которого определяется формулой X(N) = 1/N!.
4)Дана символьная строка. Слово - последовательность символов между пробелами, не содержащая пробелы внутри себя. Определить количество и вывести все самые длинные слова.
5)Задан массив D. Определить следующие суммы: D[1] + D[2] + D[3][3] + D[4] + D[5]; D[4] + D[5] + D[6]. Пояснение. Составить подпрограмму для вычисления суммы трех последовательно расположенных элементов массива с номерами от k до т.
Заранее ОГРОМНОЕ СПАСИБО!!!!

0

@HERETIC

Задача 5.
Если k и t известны, то пишешь следующее:

result:=0;
for i:=k to t do
result:=result+D[i];

Далее делаешь че хош (выводишь на экран, например).

1

voxxa

ВОТ 1-АЯ ВРДЕ РАБОТАЕТ

{Даны натуральное N и последовательность A1, A2, …,A N, состоящая из N целых чисел. Получить последовательность,
которая отличается от исходной тем, что все нечетные элементы удвоены.}
program ddf;
var
a:array [1..30] of integer;
n,i:integer;
begin
writeln('введите количество елементов последовательности');
readln(n);
writeln;
writeln('введите елементы последовательности');
for i:=1 to n do
readln(a[i]);
writeln ('дана последовательность');
for i:=1 to n do
write(a[i]:3);
writeln('получена последовательность:');
for i:=1 to n do
begin
if (i mod 2)=0 then
a[i]:=a[i]*2;
write(a[i]:3);
end;
writeln;
end.