Дан массив целых чисел. Количество за с клавиатуры. Найти: 1) максимальный элемент массива и его номер, при условии, что все элементы различны; 2) минимальный размер массива. Язык программирования
Это 3 разные программы, все проверил на pascal abc.net, удачи) 1)uses crt; var a:array [1..10] of integer; i,n,t:integer; begin clrscr; n:=10; for i:=1 to n do begin read(a[i]); end; t:=1; for i:=n downto 1 do begin if a[i] mod 2=1 then begin write(a[i],' '); t:=t*a[i]; end; end; writeln('Произведение нечетных элементов=',t); readln; end. 2) uses crt; var a:array [1..20] of integer; i,n,t:integer; begin randomize; clrscr; n:=20; for i:=1 to n do begin a[i]:=random(10); write(a[i],' '); end; t:=0; for i:=1 to n do begin if i mod 2=1 then begin write(a[i],' '); t:=t+a[i]; end; end; writeln('Сумма четных элементов=',t); readln; end. 3)uses crt; var a:array [1..20] of integer; i,n,t:integer; begin randomize; clrscr; n:=20; for i:=1 to n do begin a[i]:=random(50)-random(50); write(a[i],' '); end; t:=0; for i:=1 to n do begin if a[i]>0 then begin t:=t+1; end; end; writeln('Кол-во положительных элементов=',t); readln; end.
6. Длина поля измеряется в байтах d. символах 7. Записями считаются
c. строки
8. Реляционные базы данных имеют
d. связанные таблицы 9. Какое утверждение верно?
d. таблица базы данных состоит из отдельных записей; 10. В каком режиме пользователь может создать произвольную структуру БД?
c. конструктор;
11. Ключевое поле должно быть
c. уникальным
12. Что не относится к числовому типу:
b. 25-23-56
13. Текстовое поле позволяет занести информацию до a. 256 символов 14. Свойство автоматического наращивания имеет поле
c. счетчик
15. База данных содержит информацию об учениках школы: фамилия, класс, за тест, за практическое задание, общее количество . Какого типа должно быть поле «Общее количество балов»?
1)uses crt;
var a:array [1..10] of integer;
i,n,t:integer;
begin
clrscr;
n:=10;
for i:=1 to n do begin read(a[i]); end;
t:=1;
for i:=n downto 1 do begin
if a[i] mod 2=1 then begin write(a[i],' '); t:=t*a[i]; end;
end;
writeln('Произведение нечетных элементов=',t);
readln;
end.
2) uses crt;
var a:array [1..20] of integer;
i,n,t:integer;
begin
randomize;
clrscr;
n:=20;
for i:=1 to n do begin a[i]:=random(10); write(a[i],' '); end;
t:=0;
for i:=1 to n do begin
if i mod 2=1 then begin write(a[i],' '); t:=t+a[i];
end;
end;
writeln('Сумма четных элементов=',t);
readln;
end.
3)uses crt;
var a:array [1..20] of integer;
i,n,t:integer;
begin
randomize;
clrscr;
n:=20;
for i:=1 to n do begin a[i]:=random(50)-random(50); write(a[i],' '); end;
t:=0;
for i:=1 to n do begin
if a[i]>0 then begin t:=t+1; end;
end;
writeln('Кол-во положительных элементов=',t);
readln;
end.