Решить, ! даны 6 различных чисел. определить максимальное из них. (определить функцию, находящую максимум из двух различных чисел). нужно написать программу для pascal.
function mx(a,b:integer):integer; begin if a>b then result:=a else result:=b; end;
begin for i:=1 to 6 do begin a[i]:=random(20); write(a[i]:4); end; writeln; max:=a[1]; for i:=1 to 6 do for j:=i+1 to 6 do if mx(a[i],a[j])>max then max:=mx(a[i],a[j]); writeln('max=',max); end.
var sum, sum_chetn, sum_nechetn : integer; b:array [1..10] of integer;
begin for var i := 0 to 10 do begin sum :=sum + b[i]; //сумма всех элементов if (i mod 2 =0) then begin sum_chetn := sum_chetn + b[i]; //сумма всех четных элементов end else begin sum_nechetn := sum_nechetn + b[i]; //сумма всех нечетных элементов end; end; println('Сумма всех элементов:'); println(sum); println('Сумма всех четных элементов:'); println(sum_chetn); println('Сумма всех нечетных элементов:'); println(sum_nechetn); end.
1)Назовите систему, в которой для записи любых чисел используется всего один символ? В) Унарная;
2)Устройство, обеспечивающее обмен информацией с контроллерами периферических устройств, называется: Г) PCI-шина.
3). Какой из тегов HTML рисует горизонтальную линию? hr
4) Какой из перечисленных языков программирования относится к низкоуровневым? Г) Assembler.
5)Файлы с расширением .cvs используют для хранения: Г) Изображений.
6)Файл размером 2000 Кбайт передаётся через некоторое соединение в течение 30 секунд. Определите размер файла (в Кбайт), который можно передать через это соединение за 12 секунд. Пропорция 2000Кбайт / 30с * 12с = 800Кбайт А) 800 Кбайт;
7)Переведите число 126 из десятичной системы счисления в двоичную систему счисления. А) 1111110;
8)Укажите, что в электронных таблицах не применяется в формулах для ссылки на другие ячейки: А) Гиперссылка;
a:array[1..6]of integer;
i,j,max:integer;
function mx(a,b:integer):integer;
begin
if a>b then result:=a else result:=b;
end;
begin
for i:=1 to 6 do
begin
a[i]:=random(20);
write(a[i]:4);
end;
writeln;
max:=a[1];
for i:=1 to 6 do
for j:=i+1 to 6 do
if mx(a[i],a[j])>max then max:=mx(a[i],a[j]);
writeln('max=',max);
end.