Объяснение:
Вариант 6
const
N = 10;
var
a: array[1..N] of integer;
i, max1, max2: byte;
begin
randomize;
for i:=1 to N do begin
a[i] := random(10);
write(a[i]:3);
end;
writeln;
max1 := 1;
for i:=2 to N do
if a[i] > a[max1] then
max1 := i;
if max1=1 then
max2 := 2
else
max2 := 1;
for i:=2 to N do
if i <> max1 then // чтобы пропустить max1
if a[i] > a[max2] then
max2 := i;
writeln(max1,' ', a[max1]);
writeln(max2,' ', a[max2]);
end.
Вариант 8 не получилось
Основные группы клавиш на клавиатуре.Алфавитно-цифровыеСлужебные клавишиСлужебные клавиши для редактированияСпециальные (служебные)ФункциональныеКлавиши управления курсоромЦифровая клавиатураВспомогательные<span>
</span>
// task 1,2
const n= 15;
var a:array[1..15]of integer;
i,min,max:integer;
begin
min:=99999;
max:=0;
//Заполняем массив случайными числами
//И выводим его
for i:=1 to 15 do begin
a[i]:=random(100);
write(a[i]:5);
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
writeln();
//Вывод в обратном порядке
for i:=1 to 15 do write(a[n-i+1]:5);
writeln();
writeln ('Разность max-min ',max-min);
end.
Символы, носители информации