// PascalABC.Net 3.0, сборка 1066
begin
var M:=SeqRandom(15,-25,25).ToArray;
Writeln('Исходный массив М: ',M);
Writeln('Разность максимального и первого элементов: ',M.Max-M[0])
end.
<em><u>Тестовое решение:</u></em>
Исходный массив М: [1,-15,24,-14,-3,16,9,-16,5,9,11,19,12,18,-21]
Разность максимального и первого элементов: 23
Ответ:
Объяснение:
var a,b,c,d:integer;
begin
for a:=3 to 6 do
for b:=3 to 6 do
for c:=3 to 6 do
for d:=3 to 6 do begin
if (a<>b) and (a<>c) and (a<>d) and (b<>c) and (b<>d) and (c<>d) and (frac(sqrt(1000*a+100*b+10*c+d))=0) then
writeln(a,b,c,d);
end;
end.
Наверное так: из уменьшаемого вычесть вычетаемое
На паскале:
program zz;
var a,b,i,n: integer;
begin
n:=5;
write('A='); readln(A);
write('B='); readln(B);
for i:=1 to n do
begin
A:=A+1;
B:=B*2;
end;
writeln('A=', A);
writeln('B=', B);
end.
Ответ:
через 6 часов их будет 4, 9-6, 12-8
Объяснение:
Если амеба делится каждые 3 часа на две, то через 6 часов их будет 4, 9-6, 12-8
Все легко и просто!