19 Билет
Вычислить сумму первых четырех отрицательных элементов.
var a,b:array[1..10]of Integer; i,k,m:Integer;
begin
k:=0; m:=0;
for i:=1 to 10 do
begin
a[i]:=Random(5)-4;
write(a[i],' ');
if a[i]<0 then
begin
k:=k+1;
b[k]:=a[i];
end;
end;
writeln;
for i:=1 to 4 do
m:=m+b[i];
writeln(m);
end.
В каждом слове текста замените "а" на букву "е", если "а" стоит на четном месте, и заменить букву "б" на сочетание "ак", если "б" стоит на нечетном месте.
20 Билет
Вычислить произведение второго отрицательного и пятого элементов.
var a,b:array[1..10]of Integer; i,k,m:Integer;
begin
k:=0;
for i:=1 to 10 do
begin
a[i]:=Random(5)-4;
write(a[i],' ');
if a[i]<0 then
begin
k:=k+1;
b[k]:=a[i];
end;
end;
writeln;
m:=b[2]*a[5];
writeln(m);
end.
Записать программу, выясняющую, можно ли из букв слова N составить слово M.
21 Билет
Зашифровать слово, поставив букве её номер в алфавите
Дан символьный файл f. Группы символов, разделенные пробелами (одним или несколькими) и не содержащие пробелов внутри себя, будем называть словами. Удалить из файла все однобуквенные слова и лишние пробелы. Результат записать в файл g.
22 Билет
Второй отрицательный элемент заменить минимальным.
Создать анимированный рисунок (движущийся автомобиль, падение каплей дождя в лужу, …)
23 Билет
Сколько в массиве элементов с минимальным значением среди положительных?
Дан символьный файл f: а) подсчитать число вхождений в файл сочетаний 'ab'; б) определить входит ли в файл сочетание 'abcdefgh'; в) подсчитать число вхождений в файл каждой из букв 'a', 'b', 'c' ,'d', 'e', 'f' и вывести результат в виде таблицы
a --> Na b --> Nb c --> Nc
d --> Nd e --> Ne f --> Nf
где Na, Nb, Nc, Nd, Ne, Nf - числа вхождений соответствующих букв.
24 Билет
Вывести номер предпоследнего положительного элемента.
Дан текстовый файл f. Записать в файл g компоненты файла f в обратном порядке.
25 Билет
Найти произведение второго и четвертого элементов, значение которых больше, чем 3.
Даны текстовые файлы f1 и f2. Переписать с сохранением порядка следования компоненты файла f1 в файл f2, а компоненты файла f2 в файл f1. Использовать вспомогательный файл h.