Объяснение:
Вариант 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 не получилось
Вот пожалуйста. Сделал на PascalABC.NET
program HelloWorld;var i, x, y, z: integer;begin
i:=1;while i<>0 do begin readln(i); x:=x+i; if i>0 then y:=y+1; if i<0 z:=z+1 end;writeln(x, ';', y-z); end.
a)
25 div 3 = 24:3=8
73 div 7 = 70:7= 10
31 div 7 = 28:7= 4
25 mod 3= 25-24=1
73 mod 7 = 73-70=3
31 mod 7 = 31-28=3
b)
2 div 3 + 1 = 0+1=1
17 - 23 div 7 = 17 - 3 = 14
31 div (7+5) = 31 div 12 = 2
25 mod 3 + 25 div 3 = 8+1=9
47 div (3 mod 7) = 47 div 3 = 15
31 mod (7 div 2) = 31 mod 3 = 1