41)Создать новую таблицу 42) Д) 43)Правка - Удалить запись. 50) Параметры. 53)Выводится диалоговое окно с приглашением ввести параметр для условия на отбор записей. 56)Изменяются значения в полях определенных записей. 57)Создается таблица с данными, соответствующими определенным условиям. 62)Автоматической вставки последовательных или случайных чисел в качестве номера новой записи. 65)Во вкладке Режим таблиц – выбрать Вставить 66)Разные имена, но одинаковый тип данных. 69)Для отбора записей, данные в которых соответствуют определенным условиям. 70)Е) 71)Для создания контрольного переключателя.
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.
