Когда-то петя решил стать филологом. он открыл толковый словарь и нашёл длинное и непонятное ему слово. он подумал, что такие длинные слова в языке не нужны, и решил убрать из слова «лишние» буквы. петя придумал следующую операцию: если длина слова чётна, то он убирает последнюю букву, а иначе – среднюю. такую операцию будущий филолог повторяет до того момента, пока в слове не останется одна буква. в итоге петя получает вместо длинного слова всего одну букву, которую, по его мнению, запомнить намного проще.сейчас петя точно не может вспомнить слово, которое было найдено им в словаре. однако он помнит, что сделал ровно n операций удаления буквы.теперь нам интересно, какая же буква исходного слова осталась. нам решить эту сложную ! входные данныев единственной строке входного файла input.txt записано натуральное число n (1 ≤ n ≤ 30000).выходные данныев единственную строку выходного файла output.txt нужно вывести n+1 символ. i-тый из них должен быть равен «+», если i-тая буква осталась в конечном слове, и «.» – если петя вычеркнул эту букву на каком-то из шагов.программа нужна на с++.
var a:array [1..20] of integer;
i:integer;
begin
randomize;
for i:=1 to 20 do begin
a[i]:=random(19-(-10)+1)+-10;
write (a[i],' ');
end;
end.
Задача №2
var a:array [1..20] of integer;
i:integer;
begin
writeln('Введите числа в интервале [-20;29]');
for i:=1 to 10 do read(a[i]);
for i:=1 to 10 do
if (a[i]>-29) and (a[i]<20) then write(a[i],' ');
end.
Задача №3
var a:array [1..20] of integer;
i,sum:integer;
begin
randomize;
sum:=0;
for i:=1 to 20 do
begin
a[i]:=random(19-(-10)+1)+-10;
write (a[i],' ');
if a[i]>0 then sum:=sum+1;
end;
writeln('Количество положительных элементов массива = ', sum);
end.
Задача №4
var a:array [1..20] of integer;
i:integer;
begin
randomize;
for i:=1 to 20 do
begin
a[i]:=random(19-(-10)+1)+-10;
if a[i]<0 then a[i]:=0;
write (a[i],' ');
end;
end.
Задача №5
var a:array [1..20] of integer;
i,sum:integer;
begin
randomize;
sum:=0;
for i:=1 to 20 do
begin
a[i]:=random(19-(-10)+1)+-10;
write (a[i],' ');
if a[i]>0 then sum:=sum+a[i];
end;
writeln('Сумма положительных элементов массива = ', sum);
end.