Номер кассеты Название фильма Жанр фильма Длительность фильма Страна Дата
поступления
1 Пятый элемент 12 фантастика 125 США 3 31.01.2002
2 Титаник 7 мелодрама 185 США 3 20.02.2004
3 Кавказская пленница 18 комедия 100 Россия 6 28.02.2001
4 Драйв 5 боевик 115 США 3 31.01.2005
5 По прозвищу Зверь... 15 боевик 85 Россия 6 28.02.2004
6 Профессионал 12 боевик 125 Франция 7 25.05.2005
7 Игрушка 7 комедия 85 Франция 7 22.04.2006
8 Танцор диско11 мелодрама 130 Индия 5 14.04.2004
9 Патруль времени 14 фантастика 102 США 3 28.02.2005
10 Только сильнейшие 16 боевик 96 США 3 30.09.2006
11 Ромео и Джульетта 15 мелодрама 126 США 3 03.04.2004
12 Зита и Гита 9 мелодрама 185 Индия 5 31.01.2003
13 На Дерибасовской хо-рошая погода 28 комедия 95 Россия 6 28.02.2005
14 Джуниор 7 комедия 90 США 3 30.04.2003
15 Парк Юрского периода 18 фантастика 120 США 3 13.02.2004
16 Крепкий орешек 13 боевик 120 США 3 19.12.2005
17 Затерянный мир 13 фантастика 110 США 3 26.07.2006
18 Американ бой 11 боевик 110 Россия 6 28.02.2005
19 Невезучие 9 комедия 90 Франция 7 11.10.2004
20 Танго и Кэш 9 боевик 98 США 3 28.02.2005
4. Создать за с которого вывести на экран название, жанр и длительность для всех фильмов, произведённых в Рос-сии и США, отсортировав их по ключу «Страна (возр.)+название (убыв)».
5. Создать за для вывода на экран всех фильмов, поступивших в видеотеку в 2004 и 2005 году. Данные отсортировать по дате поступления (по возрастанию).
6. Создать за с которого удалить из БД записи о фильмах, продолжительность которых менее 100 минут. Опреде-лить, сколько записей осталось в таблице.
Представлю 3 программы два с массивом и один без массива
1)var a:array [1..10] of integer;
i,n,k5,k2:integer;
begin
writeln('введите количество экзаменов');
read(n);
for i:=1 to n do begin
writeln('введите оценку за экзамен');
readln(a[i]);
end;
for i:=1 to n do begin
if a[i]=5 then k5:=k5+1;
if a[i]=2 then k2:=k2+1;
end;
writeln('количество пятерок ',k5);
writeln('количество двоек ',k2);
end.
2)var a:array [1..10] of integer;
i,n,k5,k2:integer;
begin
writeln('введите количество экзаменов');
read(n);
for i:=1 to n do begin
writeln('введите оценку за экзамен');
readln(a[i]);
if a[i]=5 then k5:=k5+1;
if a[i]=2 then k2:=k2+1;
end;
writeln('количество пятерок ',k5);
writeln('количество двоек ',k2);
end.
3)var a,i,n,k5,k2:integer;
begin
writeln('введите количество экзаменов');
read(n);
if n<=10 then begin
for i:=1 to n do begin
writeln('введите оценку за экзамен');
readln(a);
if a=5 then k5:=k5+1;
if a=2 then k2:=k2+1;
end;
writeln('количество пятерок ',k5);
writeln('количество двоек ',k2);
end;
end.